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A note to parents (and others) 


Are you a bewildered parent? Driven to this all-too-common condition 
by your computer whizkids? Would you like to be able to beat your 
kids at their own game, show off your skills to your friends and relatives 
or just know how to program a computer? 

If so, this book is for you. ; 

I know about bewildered parents because I’ve had first-hand experi- 
ence. After all, my own parents became bewildered soon after I got my 
hands on a computer. I could feel their apprehension as I started to 
talk about loops, GOSUBs, ROMs and RAMs over breakfast. I began 
to feel sorry for them. 

I felt so badly about it that I made up my mind to help them, and 
other parents in the same state of shock, by writing this book—the guide 
for all bewildered parents. Computers are simple to understand—you 
just need a kid like me to explain them to you! The only catch is that 
you will need to book some time on your kid’s computer! 

You'll find this book easy to follow because it’s been written with 
you in mind. Everything is explained in the simplest terms. Computer 
jargon has to be avoided (as far as possible) when youre explaining 
the new technology to parents! 

If you're not a parent don’t be put off. This book will be just as useful 
to anyone who wants to learn to program in easy steps—from young 
children to grandparents. 





Each chapter ends with a summary and a quiz or assignment. Other 
features include a command conversion section dealing with possible 
variations in BASIC (the computer language you will be speaking—or 
at least programming in—by the end of this book), a collection of pro- 
grams with step-by-step explanations, and a quick reference guide to 
BASIC. 

See you in Chapter 1. 


Shayne Micchia 
Wodonga 
Victoria, Australia 
January 1985 


4 Removing some misconceptions 


Before we do any programming, let’s examine some misconceptions 
about computers. It’s a common belief that if you make a mistake when 
you operate a computer you can damage it internally. Nothing cquld 
be further from the truth! You cannot damage your computer in any 
way by pressing a key or giving a wrong instruction. The only way you 
can harm it is by applying unreasonable force or doing something 
unlikely like spilling a liquid on the keyboard! 

If the computer does go crazy (called crashing) simply turn it off, wait 
for a few seconds, then turn it back on and everything will be back 
to normal—except that any program that was in memory will be lost. 

So go ahead without fear and experiment with the programs in the 
book. You'll make plenty of mistakes but you'll learn from them. Exper- 
imentation will greatly increase your programming ability. 

Contrary to what some people think, computers are not intelligent 
creatures. In fact they are quite dumb. A computer cannot think A 
computer (the hardware) is useless without a program (the software) 
to tell it what to do. It relies on you and me to provide it with these 
programs. More about programs in a moment. 





What a computer can do is to accept information from you or me, 
make decisions and calculations based upon that information, and 
store or display information at the whim of the user. In other words 
a computer can accept input, process the information and output a 
result. 

A simple analogy is the making of a cake. The ingredients are the 
input, the mixing and baking are the processing, and the finished prod- 
uct is the output. Because computers are such dumb, fast working, 
uncomplaining, willing machines, we can use them to do things which 
are too boring or repetitive for us to be bothered with. 


2 Your first program 


The computer keyboard 


Are you familiar with your computer's keyboard? If you've ever used 
a typewriter you'll have a head start, but there are several features of 
a computer keyboard which are different. In addition to these basic 
differences there may be further differences depending on which com- 
puter you are using. So unless you have already read the introductory 
pages of the manual that came with the computer, do so now. In particu- 
lar, make sure you know what a cursor is and how to move it: 
e@up 
e down 
e left 
e right 
The cursor is a block or line that can be flashing or still. What the cursor 
does is indicate where you are on the screen. When you press a key, 
that character (a letter, number or symbol) will appear at the current 
cursor position. Practise moving the cursor around the screen. 

You also need to know how to correct the typing mistakes you are 
sure to make. Make some deliberate mistakes and correct them. 

Another important key to master is <RETURN>, which, depending 
on the micro youre using, may be called <ENTER>, <CR>, 
<NEWLINE> or <.J>. The <RETURN> key moves the cursor down 
to the next line like the <RETURN> key on a typewriter. 

Yet another is the <SHIFT> key which enables you to type the 
characters on top of some of the keys. 
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The computer program 


Acomputer program consists of nothing more than a set of instructions 
to tell the computer what to do. The program is written in a computer 
language, and in the same way as people can communicate with one 
another in different languages, computers also communicate with 
people in different languages. To program a computer in a given 
language you must first understand at least the elements of that 
language. 

There are many computer languages, some more suited to certain 
applications than others. The most popular languages in use include 
Pascal, BASIC, COBOL, Fortran, Forth and Lisp (not necessarily in 
that order). 





BASIC is the most commonly used language for micro (or personal) 
computers. It is also becoming more and more popular in commercial 
applications, which is not surprising considering the power and flexi- 
bility of some of the better versions available today. BASIC is an 
acronymn standing for Beginners’ All-purpose Symbolic Instruction 
Code. 

A BASIC program consists of a series of numbered lines, each 
containing one or more instructions. Here is an example of a simple 
program: 


1@ PRINT “THIS IS A PROGRAM" 
2@ PRINT “WRITTEN IN BASIC" 
3@ END 


To tell the computer to follow these instructions, you command it to 
RUN the program. The computer then starts at the lowest line number 
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and executes (carries out) the instructions on that line. When it comes 
to the end of that line, it jumps to the next line number, executes the 
instructions on that line, and So on, until it encounters an END state- 
ment. Line numbers are necessary for the program to be executed in 
the correct sequence. 





Let’s see what would happen if we were to command the computer 
to RUN the above program. The computer would start at line 19 the 
lowest line number) and PRINT (display on the screen) everything 
inside the quotation marks. When it reached the end of line 19 it would 
jump to line 29 and again PRINT everything enclosed in quotation 
marks. When it reached the end of line 29 it would jump to line 39, 
where it would find an END statementand end. This is what the program 
would display when RUN: 


THIS IS A PROGRAM 
WRITTEN IN BASIC : 


Ifyou understand this program you are already on your way to becoming 
a programmer in BASIC. Congratulations! 

Just to let you become familiar with using a program, type in the 
following example exactly as shown (always type in programs exactly 
as shown because even a wrong punctuation mark or the addition or 
omission of a space can sometimes crash the program, and you'll waste 
a lot of time wondering why!) 

Don’t fall into the trap of typing a capital letter ‘O’ instead of the 
numeral ‘f. Most computers print the zero with a slash through it. 
All the numerals are on the top row of the keyboard. 

Don’t worry if you don’t understand the program at this stage, just 
enter it into your computer. At the end.of each program line press the 


<RETURN> key. This puts the line in the computer’s memory as well 
as moving the cursor to the beginning of the next line. 

Don’t overlook the space immediately after the word YOU in line 
60. 


1@ PRINT “WELCOME BEWILDERED PARENT" 

2@ PRINT 

3@ PRINT "PLEASE TYPE IN YOUR NAME AND PRESS 
<RETURN>" 

4@ INPUT A$ 

5@ PRINT 

6@ PRINT “PLEASED TO MEET YOU "; A$ 

7@ PRINT "I AM SURE WE WILL ENJOY WORKING 
TOGETHER" 

8@ END 


The complete program is now in your computer's memory. There are 

three commands that tell the computer what to do with the program 

in its memory: 

@ RUN, as we have already seen, commands the computer to execute 
the program in its memory 

e@ LIST commands the computer to display the program in its memory 
on the screen 

@ NEWcommands the computer to delete the program from its memory. 





To demonstrate that the program you have just typed in is in the 
computer's memory type in LIST and press <RETURN>. It should be 
an exact copy of the program you typed in except that some lines may 
be broken, depending on how many characters your computer can 
display across the screen. 

If you find you've made a typing mistake, move the cursor to the error 
and correct it. LIST the program again to make sure you've corrected 
the error. You may find correcting mistakes a bit tricky at first but it'll 
soon be second nature to you. What you must remember to do when 
you've corrected a mistake is to press < RETURN >. If you don’t do this 
you will not have put the amended line into the computer’s memory. 

To RUN the program, type RUN and press < RETURN >. The program 
should display the following: 


WELCOME BEWILDERED PARENT 


PLEASE TYPE IN YOUR NAME AND PRESS <RETURN> 
? 


The question mark is a prompt The computer is prompting you 
for an answer before going on. So type in your name and press 
<RETURN>. If your name is Rodney, the computer should respond 
with: 

PLEASED TO MEET YOU RODNEY 

I AM- SURE WE WILL ENJOY WORKING TOGETHER 


Amazing eh? The computer is talking to you! But remember what 
I said about it not being intelligent. It's only following the instructions 
you gave it! 

Try using the NEW command to delete this program from the 
computers memory. Type in NEW and press <RETURN>. 
To check if the program is really gone, try LISTing it again. Nothing! 





Summary 


1 Computers are pretty stupid but they faithfully follow instruc- 
tions. 
2 Stupid or not, they can speak several languages. 


3 The sets of instructions we give computers are called programs. 
4 BASIC is the most common microcomputer language. 

5 To execute a program type RUN. 

6 To display the program on the screen type LIST. 

7 To delete a program type NEW. 





1 Why does a BASIC program have line numbers? 
2 How do you clear a program from the computer’s memory? 
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3 The basics of BASIC 


BASIC is a language and like all languages it has its own grammatical 

tules. The rules in a computer language are called its syntax. 
In BASIC, each program line has: 

© a line number, between # and 63999 (this last number varies betwéen 
computers) 

@ an instruction, such as PRINT or LET 

@ an expression. 

Take, for example, the following program: 


1@ PRINT “I’M BEGINNING TO UNDERSTAND BASIC" 


The line number is 19. 

The instruction (also called the keyword) is PRINT. 

The expression is “’'M BEGINNING TO UNDERSTAND BASIC”. 

As we have already seen, when you press <RETURN > at the end 
of a program line, the line is stored in the computer’s memory and can 
be executed by typing RUN. If you type in a line without a line number 
as in the following example: 


PRINT "I’M BEGINNING TO UNDERSTAND BASIC" 


the line is executed as soon as you press <RETURN> and is not stored 
in memory. Because the instruction was executed immediately after 
you pressed <RETURN>, it is called an immediate instruction. You 
were using your computer in immediate mode. 

This may seem complicated but BASIC is such a simple language 
you will soon pick it up. 


Order of program lines 


When you enter a program into the computer the lines can be typed 
in any order. The computer will arrange them in the correct sequence 
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(from lowest to highest). For example, you could enter a program in 
the following order: 

38 PRINT 

16 LET A = 5 

40 PRINT "TESTING 1 2 3.." 

2@ PRINT "THIS IS A TEST PROGRAM" 
When you LIST the program the computer will start at the lowest line 
number and list the program in numerical order, like this: 

10 LET A= 5 

20 PRINT “THIS IS A TEST PROGRAM" 

3@ PRINT 

40 PRINT "TESTING 1 2 3.." 


If you don’t believe me, type in the program then LIST it. See? 


LISTing and deleting lines 


If you wanted to examine line 29 only in the above program, you could 
do so by typing LIST 26 and pressing <RETURN>. 

If you wanted to examine lines 2 to 39 you could do so by typing 
in LIST 26—39 or LIST 20, 3 (depending on the demands of your par- 
ticular computer). 

If you wanted to delete a program line you would simply type in the 
line number and press <RETURN>—but be careful because once you 
have deleted a line you cannot get it back. 


Numbering in tens 


You are probably wondering why program lines are numbered in 19s. 
Program lines do not have to be in stages of 19 or any other number. 
However most programmers number their lines in 1's to allow 
additional lines to be inserted if need be. 


Memory 


When a program is entered info the computer it will stay in memory 

until: 

e the power is turned off, or 

e the computer is instructed to delete the program by means of the 
command NEW, or 

@ you type a line number (or sequence of line numbers) with no further 
instruction. . 


Summary 


1 BASIC programs have a common structure. 


2 Program lines can be entered in any order. 

3 You can LIST a whole program, a single line or a group of lines. 

4 Toallowadditional lines to be added later, program lines leis 
progress in 19's. 





Quiz 


1 What happens when: 

(a) a line is entered with a line number? 

(b) a line is entered without a line number? 
2 How do you delete a program line? 
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4 The PRINT statement 


The PRINT statement instructs the computer to display information 
on the screen. Let’s have a look at a program using the PRINT statement. 
To delete the last program from memory type in NEW and press 
<RETURN >. Nowtype in the following program, remembering to press 
<RETURN> at the end of each line: 


1@ PRINT "THIS IS A PROGRAM" 
2@ PRINT “WHICH USES THE ’PRINT’ STATEMENT" 
36 END 


RUN the program. Your screen should look like this: 


THIS IS A PROGRAM 
WHICH USES THE ’PRINT’ STATEMENT 


As you can see, the program is fairly self-explanatory. Line 19 instructs 
the computer to PRINT the expression “THIS IS A PROGRAM” on the 
screen. Line 29 tells the computer to PRINT the expression “WHICH 
USES THE ‘PRINT’ STATEMENT”. Line 39 tells the computer that the 
program has ENDed. 

Most computers allow the omission of the END statement. When 
the computer comes to the highest line number it will automatically 
END, unless it is told to jump to another, smaller line number. From 
this point on we shall omit the END statement. 

You will notice that each time the PRINT statement is used, the output 
appears on a new line. To separate each line of the output with a blank 
line, we simply use another PRINT statement, this time without an 
expression. Type in this line: 


15 PRINT 


To look at the program in memory, type LIST and press <RETURN>. 
Our program now looks like this: 


1@ PRINT "THIS IS A PROGRAM" 
15 PRINT 
2@ PRINT “WHICH USES THE ’PRINT’ STATEMENT" 
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When RUN the program will give the following output: 
THIS IS A PROGRAM 


WHICH USES THE °PRINT’ STATEMENT 


It's really quite easy, isn’t it? In order to have each line of the message 
followed by a blank line you simply add more PRINT statements. - 





String expressions 


The expressions used in all the programs so far have been string 
expressions, so called because they are made up of a ‘string’ of charac- 
ters. Any expression enclosed in quotation marks is a string expression. 
The expressions following the PRINT statements in the following 
program are string expressions: 

1@ PRINT “THIS IS A STRING EXPRESSION" 

20 PRINT "1234567898 ABCDEFGH $%&’()=" 

3@ PRINT “SO IS THIS" 
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As you can see, any characters can be enclosed within the quotation 
marks. String expressions are PRINTed exactly as they appear inside 
the quotation marks. 


Numeric expressions 


Numeric expressions, on the other hand, do not have quotation marks 
around them and must be a number made up of the digits 0-9. What 
follows each of the PRINT statements in the following program is a 
numeric expression: 

1@ PRINT 12 

2@ PRINT .9999 

3@ PRINT 100 


Anumeric expression may include one or more addition, subtraction, 
multiplication or division signs, or one or more of a number of other 
signs that we shall come across later. In this case the expression is 
also known as an arithmetic expression. Here are some examples: 


1@ PRINT 12 + 6 
2@ PRINT .3 - .1 
3@ PRINT 99 * 10 
46 PRINT 99 / 9 
You will recognise the addition and subtraction signs but will probably 


be mystified by these symbols: * and /. To the computer the asterisk 
symbol (*) means multiply and the backslash (/) means divide. 


Type in and RUN these program examples and see what you get. 
You will notice that the computer does not just PRINT the numeric 
expressions character for character, but first carries out the calculation 
and then displays the calculated result. . 

Type in and RUN the following string expressions: 

16 PRINT "12 + 6" 

26 PRINT ".3 - .1" 

36 PRINT “99 * 10" 

40 PRINT "99 / 9" 


The difference between string expressions and numeric expressions 
will now be clear. 
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The semicolon 
Nowlet’s try something a little more complicated. Type in the following 
program: 
1@ PRINT “I AM LESS" 
26 PRINT “BEWILDERED” 
Run the program. The program should give the following output: - 


I AM LESS 
BEWILDERED 


Now let’s see what special significance the semicolon (;) has in a 
program line. Amend line 19, inserting a space after the word LESS 
and adding a semicolon after the final quotation marks, so the line 
reads as follows: 


1@ PRINT "I AM LESS *; 


Did you remember to press <RETURN> to enter the amended line 
into memory? Now LIST the program. It should now look like this: 


1@ PRINT “I AM LESS "; 
20 PRINT "BEWILDERED" 


Let's see the result. RUN the program. It should output the following: 


I AM LESS BEWILDERED 


As you can see, the semicolon placed after the first expression caused 
the next expression to be PRINTed immediately following it. 

Now type in and RUN the following program (don’t forget to delete 
the last program): 


10 PRINT “NOT"; "WITH"; "STANDING" 


This program should give the following output: 


NOTWITHSTANDING 


Again, the semicolon causes the string expressions to be PRINTed with- 
out any space between them. 
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However, when the semicolon is used with numeric expressions it 
has a slightly different result. Type in and RUN the following program: 


1@ PRINT 18; 20; 30; 46 
When RUN the program should output the following: 
1@ 20 38 46 


Notice there is a space (or two spaces, depending on your machine) 
between the numeric expressions. In fact when a numeric expression 
is PRINTed a space is always reserved before the number for the sign 
of the number (whether it’s positive (+) or negative (—)). If the number 
is positive, the + sign is not printed when you RUN the program even 
though you may have keyed it when you typed the PRINT instruction. 
When the number is negative you must, of course, key in the — sign 
and it will be printed when you RUN the program. 
Change the program line so that it becomes: 


16 PRINT -—10; -20; -3@; -—48 
When you RUN this program you will see what I mean. 
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The comma 


The comma also has special significance in a PRINT statement. When 
acomma is placed after an expression, the next expression is PRINTed 
part-way across the screen. Type in the following program: 


16 PRINT “NOT", "WITH", "STANDING" 


When the program is RUN, the comma will cause the three string 
expressions to be PRINTed part-way across the screen, like this: 


NOT WITH STANDING 


Not all computers treat the comma symbol in the same way. Some will 
respond by PRINTing the second expression half-way across the screen, 
while others will PRINT it a third or quarter of the way across. The 
comma has the same effect when used with numeric expressions. 


Summary 
1 The PRINT statement displays information on the screen. 


2 Astring expression is typed within quotation marks. 
3 Anumeric expression is not typed within quotation marks. 


4 When used after a string expression the semicolon has a diff- 
erent effect from when used after a numeric expression. 

5 Acomma in string expressions or numeric expressions causes 
the expressions to be spaced out on the same line. 

6 A space is always reserved at the beginning of a numeric 
expression for the sign of the number. 





Quiz 


1 What are the computer symbols for: 
(a) multiplication? 
(b) division? 
2 What happens when you omit the END statement? 
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5 Variables and the LET statement 


Numeric variables 


Examine the following program and see if you can understand it. 


1@ LET A = 7 
2@ LET B = 14 
3@ LET C= A+B 


Before you type in this program, be sure to type NEW to wipe out the 
old program from the computer’s memory. When you RUN the program, 
you will notice that it does not produce any output. This is because 
it lacks a PRINT statement. All the program does is assign values to 
three variables: A, B and C. Line 19 assigns a value of 7 to the variable 
A. Line 29 assigns a value of 14 to B. Line 3 LETs the variable C equal 
the sum of A and B, which is 21. 
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In order to explain variables, let’s look at a simple algebraic problem. 
If 2X = 19, what does X equal? X stands for a value, which in this 
case is 5. Now what is the value of X if 5X = 10? The answer is of 
course 2. The value of X has changed. Because the value of X varied, 
X is known as a variable. 

Variables are useful in computing because they allow the program- 
mer (that means you) to assign any values to them. For instance, in 
the program we've just looked at we assigned the value of 7 to the vari- 
able A and the value 14 to the variable B. We could have assigned any 
values we liked to A and B. Once we had told the computer the values 
of A and B, we went on to say that C = A + B. All the computer has 
to do is work out the value of A + B and assign this value to the variable 
C. 

These variables are called numeric variables as we assign numeric 
expressions to them (remember numeric expressions from the last 
chapter?). 

At the risk of confusing you there is another type of variable called 
(you guessed it!) a string variable, to which we can assign a string ex- 
pression. But more about string variables later in the chapter. 

To save time while working with variables let’s use the computer in 
immediate (or direct) mode. This means that you type in the instructions 
without a line number, and as soon as you press < RETURN >, the com- 
puter executes the instruction. To clear the computer's memory, type 
in NEW and press < RETURN>. Now type the following: 


PRINT 12 + 13 


As soon as you press <RETURN> the computer will respond with: 
25 


which is the sum of 12 and 13. Now try the following: 


LET A = 11 
LET B 4 
PRINT A * B 


The computer will respond with: 
44 


which is the product of 11 and 4. 
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In the first instruction we told the computer to assign a value of 11 
to the variable A. The second instruction tells the computer to give 
B a value of 4. The last instruction PRINTs the product of A and B. 

It's important to note that a given variable can only have one value 
at a time. When a new value is assigned to an existing variable, the 
old value is lost and cannot be regained. 

Most computers allow you to use more than one character for a vari- 
able name. This means it is possible to use descriptive names, making 
it easier for the programmer to remember what the variable is for. 
Instead of using A as a variable for a person’s age, you could instead 
use the variable AGE. For example, the following program: 


10 LET A = 12 

20 LET B = 23 

3@ LET C = A+B 
could become: 


16 LET NUMBER] = 12 
20 LET NUMBER2 23 
3@ LET SUM = NUMBER1 + NUMBER2 
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A word of warning, however, as a few computers only recognise the 
first few characters (usually two) of a variable name. This means that 
they will treat COSTS, COLUMN and CONFUSING as the same 
variable—which can have some confusing results to say the least! 

If your computer allows you to use long variable names, be careful 
not to include BASIC instructions, such as RUN, PRINT and LIST in 
these names, as they may cause an error which could prove difficult 
to find. For example, the following variable names may not be valid: 

e@ PRUNE—because it contains the command RUN. 
e@ PALETTE—because it contains the statement LET. 
@ SPRINTER—because it contains the statement PRINT. 

Type in NEW, and enter and RUN the following program: 

1@ LET A = 2.34 

20 LET B = 1.23 

30 LET C = 3.55 

40 PRINT "COST OF ITEM 1","$";A 

5@ PRINT “COST OF ITEM 2","$";B 

6@ PRINT “COST OF ITEM 3","$";C 

76 PRINT 

8@ PRINT “TOTAL COST OF ITEMS","$";A + B + C 


The output should look like this: 


COST OF ITEM 1 $ 2.34 
COST OF ITEM 2 $ 1.23 
COST OF ITEM 3 $ 3.55 


TOTAL COST OF ITEMS $ 7.12 


This program uses everything we have learnt so far, including: 

@ the LET statement 

@ numeric variables and expressions 

@ string expressions 

@ the PRINT statement 

@ the semicolon in PRINT statements 

@ the comma in PRINT statements 

‘@ separating output with a blank line by means of a PRINT statement 
without an expression. 

If you can understand this without looking back a few pages, you're 

doing pretty well. But don’t let that stop you looking back if you need 

to! 
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Lines 19 to 30 use the LET statement to assign values to the numeric 
variables A, B and C. Lines 49 to 6 use the PRINT statement along 
with the comma and semicolon, The comma after the first expression 
causes the dollar sign to be PRINTed halfway across the screen. The 
semicolon after the dollar sign causes the value of the variable to be 
PRINTed immediately following it (remember that it leaves a space for 
the sign of the value). Line 79 causes a blank line to be PRINTed. Line 
8@ PRINTs the string expression “TOTAL COST OF ITEMS”, along 
with the sum of the three variables A, B and C at the foot of the cost 
column. 

Quite a hefty program, eh? Just for fun, why don’t you look back to 
our first program and see how far you've progressed. Amazing isn’t it? 
It won't be long before you start writing your own book! 

If youre still a little unclear about numeric variables and the LET 
statement do a bit of experimenting on your own. 





String variables 


String variables allow you to assign string expressions to them. Type 
in the following (not forgetting the space before the final quote in the 
first instruction): 


LET A$ = "I AMA" 
LET B$ = “COMPUTER PROGRAMMER" 
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Now type:. 
PRINT A$,B$ oe 
You should get the following output: 
I AM A -COMPUTER PROGRAMMER 


String variables differ from numeric variables in the following respects: 


e String variables store a string of characters (a string expression). 

e Because string variables do not store numeric values they cannot 
be used in arithmetical calculations. 

e You can, however, add several string variables together to form one 
variable. 

e All string variables end with the dollar sign. This is how the computer 
tells the difference between the two types of variables. 

There is an instruction which tells us how many characters a string 
variable has in it but you'll learn more about that later. The maximum 
number of characters you can have in a string variable depends on 
the computer you are using, but is usually between 159 and 255. 

Going back to our most recent example, do you remember how to 
make the second variable appear immediately after the first? Try replac- 
ing the comma with another symbol. You guessed it—the semicolon! 
So now type: 


PRINT A$;B$ 
The result should be: 
I AM A COMPUTER PROGRAMMER 


Now let's try adding the two variables together to make a third variable. 
Try this: 


LET C$ = A$ + BS 
Now try PRINTing C$. You should get the following result: 
I AM A COMPUTER PROGRAMMER 


This is called concatenation. As you can see, A$ and B$ were added 
together to make C$. Try replacing the plus (+) symbol with either 
the divide (/), multiply (*) or subtract (—) symbol. As you can see this 
does not work 
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Clear the computer’s memory and type in the following program (we'll 
revert to using line numbers so that we can refer to the lines): 


1@ LET A$ = “MY COMPUTER USES AN" 
20 LET B = 8086 

3@ LET C$ = "MICROPROCESSOR" 

40 PRINT A$;B;C$ 


The output should look like this: 
MY COMPUTER USES AN 8@86 MICROPROCESSOR 


Lines 19 and 39 simply assigned a string expression to the variables 
A$ and C$ respectively. Line 2 assigned a value of 17 to the numeric 
variable B. . 

Congratulations! If you have made it through this chapter wichout 
much difficulty you should find the rest of the book relatively simple. 
Variables are a topic which give most beginners (and some who are 
not beginners!) a considerable amount of trouble. But if you are still 
a bit vague on the concept ofvariables don’t panic—it will all fit together 
a little later. 

In the next chapter we'll be learning about interactive programming; 
that is, we'll be interacting with the computer. This is where the fun 
really starts! 


Summary 


1 A variable is a ‘pigeon hole’ in the computer’s memory where 
the expression assigned to the variable for the time being is 
stored. 

2 The two types of variables are numeric variables and string 


variables. 
3 Onlynumericvariables can be used in arithmetical calculations. 
4 Expressions are assigned to variables with the LET statement. 
5 Variable names must not incorporate any BASIC keywords. 
6 The computer is in immediate mode when an instruction is 
given without a line number. 
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Assignment 


Write a program that assigns the strings ‘MICRO’ and ‘COMPUTER’ 
to the string variables A$ and B$ respectively and then add them 
together to make a third variable C$. The output should look like this: 

THE WORD ’MICRO’ PLUS THE WORD 

*COMPUTER’ COMBINE TO GIVE US 

*>MICROCOMPUTER’ 
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6 Talking with your computer 


The INPUT statement 


Look back at the very first program you typed into the computer (see 
page 8). You'll see that in line 49 we used an INPUT statement. The 
purpose of the INPUT statement was to allow you to type in a string 
expression (your name) in answer to a question put by the computer. 
Once you had INPUT your name, the computer stored that piece of 
information in one of its string variable ‘pigeon holes’. Later on (in line 
69) the computer PRINTed your name along with a greeting message. 
String variables in INPUT statements are, as always, identified by.a 
$ symbol. 

Type in the program again. This time you'll have a much better under- 
standing of it. 

Now let’s experiment with another program, this time using numeric 
variables. Type in the following program (not forgetting to clear the 
memory before doing so): 


1@ INPUT A 
2@ INPUT B 
38 PRINT 

4@ PRINT A,B 


When you RUN the program you are prompted by a question mark. 
Type in a number, then press <RETURN>. Another question mark 
will appear. Type in another number and press < RETURN >. The two 
numbers you typed in will then be PRINTed. If you typed in 5 and 23 
your screen would look like this: 


? 5 


? 23 
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Lines 19 and 29 use the INPUT statement to accept information from 
the keyboard. The first number you typed in is stored in the variable 
A, and the second number in the variable B. Line 30 PRINTs a blank 
line, and line 49 PRINTs the two numbers separated by a large space. 
It is also important to note that since the program uses numeric vari- 
ables it is expecting a numeric expression. If you type anything other 
than a number, the computer will respond with an error message, such 

as ‘REDO FROM START’. ; 

As itstands, our program doesn’t reallydo much. Let’s make itinterest- 
ing by adding a few lines: 


5 PRINT "TYPE IN A NUMBER THEN PRESS <RETURN> 
" 

16 PRINT "TYPE IN ANOTHER NUMBER THEN PRESS < 
RETURN>" | 

5@ PRINT “THE SECOND NUMBER YOU TYPED IN WAS" 
;B 

9 


Now change line 49 to read: 


4@ PRINT “THE FIRST NUMBER YOU TYPED IN WAS"; 
A 


Now LIST the complete program. It should look like this: 
5 PRINT "TYPE IN A NUMBER THEN PRESS <RETURN> 


" 

10 INPUT A 

15 PRINT "TYPE IN ANOTHER NUMBER THEN PRESS < 
RETURN>" 

2@ INPUT B 

3@ PRINT 

4@ PRINT "THE FIRST NUMBER YOU TYPED IN WAS"; 


50 PRINT “THE SECOND NUMBER YOU TYPED IN WAS". 
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RUN the program. If you typed in 3 and 4 your screen would look 
like this: 


TYPE IN A NUMBER THEN PRESS <RETURN>? 3 
TYPE IN ANOTHER NUMBER THEN PRESS <RETURN>? 4 


THE FIRST NUMBER YOU TYPED IN WAS 3 
THE SECOND NUMBER YOU TYPED IN WAS 4 


Because it PRINTs a message before the INPUT statement the program 
is now far easier to use: the user is told what to do, rather than just 
presented with a question mark. 


Combining PRINT and INPUT statements 


Some computers allow you to combine the PRINT and INPUT state- 
ments. Let's rewrite the program using this method. It will be easier 
to start from scratch rather than modify the program, so clear the com- 
puter’s memory, then type in: 

1@ INPUT “TYPE IN A NUMBER AND PRESS <RETURN> 

. A 

26 INPUT “TYPE IN ANOTHER NUMBER THEN PRESS < 

RETURN>";B 2 

38 PRINT "THE FIRST NUMBER YOU TYPED IN WAS"; 

A 

4@ PRINT "THE SECOND NUMBER YOU TYPED IN WAS" 

3B 
Notice how INPUT replaces PRINT in lines 19 and 29. 

Now RUN the program. Its output should be exactly the same as the 
previous program. 

Combining the PRINT and INPUT statements on one line saves time. 
If your computer doesn’t allow this method you will have to stick to 
using the PRINT and INPUT statements separately but from now on 
rll use the briefer method. 

Notice that when you RUN this program the semicolon causes the 
question mark to appear immediately after the expression inside the 
quotation marks. 
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A fun program 


Now let's have a bit of fun with the INPUT statement using a string 
variable. Type in the following program exactly as shown. 

PRINT “TYPE IN YOUR FIRST NAME" 

INPUT “THEN PRESS <RETURN> ";N$ 


10 
20 
30 
40 
56 
66 
78 
8@ 
90 


PRINT 

PRINT "TYPE IN WHAT YOUR AGE 
INPUT "THIS YEAR, THEN PRESS 
BD = 1985 - A 

B = (2008 - 1985) + A 

PRINT 

PRINT “FROM THIS INFORMATION 


108 PRINT "I KNOW THAT YOU WERE 
11@ PRINT "AND THAT BY THE YEAR 2008, YOU 
WILL BE" 

12@ PRINT "AN ANCIENT (BUT VERY 
“YEARS OLD" 


WILL BE" 
<RETURN>";A 


"SNS 
BORN IN";BD 


WISE)";B; 


Do you understand how the program works? Let's take a look. 

Lines 19-59 simply use the PRINT and INPUT statements. Line 69 
calculates your year of birth by subtracting your age from the current 
year. Line 79 subtracts the current year from the year 2000 to obtain 
the number of years until the end of this century, then simply adds 
your age to this number to calculate how old you will be in 2000. 


Summary 


1 INPUT statements allow you to interact with your computer by 
typing in answers to questions. 
2 The information you INPUT through the keyboard is stored in 


a variable which may be a string or numeric variable. 

3 String variables are always identified by the $ symbol. 

4 Many computers allow the PRINT and INPUT statements to 
be combined on one line. This makes programming faster and 
saves memory. 
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Assignment 


Write a program that asks for your name and age and then (assuming 

you live that long) tells you in what year you will reach 19%. Here is 

an example of what might be PRINTed when you RUN the program: 
ENTER YOUR NAME THEN PRESS <RETURN>? DEXTER 
ENTER YOU AGE THEN PRESS <RETURN>? 21 


DID YOU KNOW, DEXTER, THAT BY THE 
YEAR 2067 YOU WILL BE 100 YEARS OLD? 
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7 Jumping around 


The GOTO statement 


As you know, when a program is executed the computer starts with 
the smallest line number and continues in ascending order, carrying 
out the instructions on each line in sequence. There are times, however, 
when we want the computer to jump or GO TO another part of the 
program. The statement to do this is, not surprisingly, called GOTO. 

You determine which part of the program you want to jump to by 
specifying a line number. If you wanted to jump to line 119 you would 
simply use GOTO 119. Let’s look at a program that uses the GOTO 
statement. First clear the computer’s memory, then type in and RUN 
this program: 


10 PRINT "THIS PROGRAM IS VERY MONOTONOUS"” 
20 PRINT 
3@ GOTO 180 


When executed, this program will PRINT: 

THIS PROGRAM IS VERY MONOTONOUS 
over and over again. This is called an infinite loop. The computer will 
keep looping until you break the program or until the power is switched 
off. If your computer has a key labelled <BREAK> or <RUN STOP> 
you can use it to stop the program from executing. If not, try pressing 
the keys labelled < CTRL> and <C> atthe sametime. If this still doesn’t 
work, refer to your user’s manual for the key(s) your computer uses 
to cause a break in a program. In the meantime, though, don’t worry 
about your computer. It could continue in this infinite loop for years 
without any ill effects whatsoever. 

We can also use the GOTO statement along with the INPUT state- 
ment to write a program that will countin a certain step. Try the following 
program: 

10 N = 

2@ INPUT "COUNT IN WHAT STEP ";S 
30 N=N+S 

40 PRINT N 

50 GOTO 30 
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After you have entered the step (line 28) the program gets stuck in an 
infinite loop between lines 30and 50. In Chapter 8 you'll learn to control 
how many times a loop actually loops. 

Instead of jumping back to an earlier part of the program, we can 
also jump to a part of the program that has not yet been executed. For 
example, try the following program (remember to delete the old pro- 
gram): 

10 PRINT “WRLL. eeee We 

28 GOTO 48 

3@ PRINT “THIS WILL NEVER BE PRINTED" 

4@ PRINT “HI THERE!" 

Can you see how the program jumps over line 3? You can probably 


guess the program’s output, but RUN it anyway. This is what your screen 
should look like: 


WELL.....HI THERE! 


Clear the computer’s memory and type in this program: 


1@ PRINT “IN THIS PROGRAM....." 

28 GOTO 58 

36 PRINT "AND THIS WILL BE PRINTED LAST" 
46 END 

5@ PRINT “THIS WILL BE PRINTED FIRST" 

68 GOTO 30 


Can you see what it will do? Line 2 tells the computer to jump to line 
59 and PRINT the message. Line 69 causes the computer to jump back 
to line 39 and PRINT the message. The END statement is necessary 
in line 49, otherwise the computer will hang up in a loop between lines 
30 and 69. 


The GOSUB statement 
Now let's introduce GOTO’s equally useful brother, the GOSUB state- 
ment. GOSUB means GOto SUBroutine. GOSUB is used in conjunc- 


tion with another statement, the RETURN statement (not the key 
<RETURN > but an instruction called RETURN). GOSUB causes the 
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computer to jump to a line number in the same way as the GOTO state- 
ment, but with one important difference. Once a GOSUB statement 
is executed and a jump takes place, the computer arrives ata RETURN 
statement, RETURNs to the line number immediately after the one 
which sent it to the subroutine, and continues from there. 

Let's amend our existing program to show how GOSUB works. 

1@ PRINT "IN THIS PROGRAM....." 

2@ GOSUB 580 

3@ PRINT “AND THIS WILL BE PRINTED LAST" 

46 END 

56 PRINT “THIS WILL BE PRINTED FIRST" 

66 RETURN 


The GOSUB in line 26 makes the computer jump to line 59 (as did 
the GOTO statement) but the RETURN in line 69 causes the computer 
to RETURN to the line after the point at which it jumped. As the jump 
took place in line 20 the computer RETURNs to continue execution 
from line 30. 

However, this program does not really demonstrate the advantages 
of using subroutines. The following program is a simplified example 
of how subroutines can be used to advantage. Go ahead and type it 
in: 

1@ GOSUB 1800 

2@ PRINT "WELCOME TO THE" 

38 GOSUB 1600 

4@ PRINT “WONDERFUL WORLD OF" 

50 GOSUB 1000 

6@ PRINT “COMPUTER PROGRAMMING IN" 

70 GOSUB 18000 

8@ PRINT “THE BASIC LANGUAGE" 

9@ GOSUB 1009 

16@ END 

166@ PRINT 

1018 PRINT "XXXXXXKKKKKKKKKKKEKKKEKEK" 

1620 PRINT 

1630 RETURN 
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Fascinating, isn’t it? When the program is RUN you should see the 
following: © 
HEREKEERAEERARKAAERAERKE 


WELCOME TO THE 

KEKKKEKEEAKKKERKKKKKAEEEKE 

WONDERFUL WORLD OF 

REKEKAKAKKAKAKKKEKEKAKKAEE - 
COMPUTER PROGRAMMING IN 
KKKKEKAKKKKEKEKEKAEKEEKKE 

THE BASIC LANGUAGE 


KKK KKK KEE ERERERKAKEEEE 


Now let's look at a program that will give the same output but does 
not use GOSUBs (there is no need to type it in):. 

1@ PRINT 

2@ PRINT "“XXXRKKKKKKAKEAARREAKAAAEEESE" 

3@ PRINT 

46 PRINT “WELCOME TO THE" 

5@ PRINT 

6B PRINT “XXXKKKKKKKKKEKEKKKKKEKKKE" 

70 PRINT 

8@ PRINT “WONDERFUL WORLD OF" 

9@ PRINT 

10@ PRINT “XXXXKKKKKKKKKEKKAKKERERE" 

11@ PRINT 

12@ PRINT “COMPUTER PROGRAMMING IN" 

13@ PRINT 
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14@ PRINT "&4R2E4RSKEERREREREREREE" 
15@ PRINT : 

160 PRINT “IN THE BASIC LANGUAGE" 
170 PRINT 

180 PRINT "XSXREKREKREREERAEERAREER” 
198 PRINT 


What a long-winded program to achieve the same output as the much 
shorter one you typed immediately before! Using subroutines in con- 
junction with the GOSUB/RETURN statements makes far more sense 
than typing out the whole routine each time it is needed. Professional 
programs written in BASIC often consist almost entirely of subroutines 
that are simply called with the GOSUB statement when needed. 

The advantages of subroutines are numerous. By breaking a large 
program down into sections (subroutines), programs are far easier to 
debug (find errors in) as they become easier to read. Programs become 
much easier to modify, as an entire subroutine can be replaced with 
a better subroutine without affecting the rest of the program. When 
a certain routine is used frequently in different parts of the program, 
the real advantages of subroutines are that they save memory (this is 
becoming less important as standard memory sizes increase) and cut 
down on programming time. 





Summary 






1 The GOTO and GOSUB/RETURN statements can be used to _. 
execute program lines out of the sequence (called jumping). 

2 When the computer is stuck in an infinite loop it will continue 
forever unless you break out of the program by pushing a par- 
ticular key or keys. 

3 When the computer is stuck in an infinite loop it is said to be 
hung up. | 

4 The RETURN statement causes the computer to return ex- 
ecution to the line immediately after the one which sent it to 
the subroutine (with the GOSUB statement). 

5 Using subroutines in conjunction with the GOSUB/RETURN 
statements is better than rewriting the subroutine when it is 
needed. 

6 Subroutines make programs easier to debug and modify. 
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Assignment 


Make sure you have a fair understanding of everything we have covered 


so far. If necessary, go back and summarise each chapter. 


oo 
oo? 
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8 Decisions and comparisons 


The IF—-THEN statement 


The ability to make decisions and comparisons quickly and accurately 
is one of your computer's main skills. In this chapter we will look at 
how to get the computer to make decisions and finally show a small 
amount of ‘intelligence’. 

The syntax of the IF-THEN statement is: 
e IF condition THEN statement or line number. 
Ifthe condition is true the computer will execute the statementorGOTO 
the line number. If the condition is false the computer will ignore the 
rest of the line and continue to the next line. 

Try the following program: 


1@ INPUT "TYPE IN A NUMBER BETWEEN 1 AND 5 "; 
N 


20 IF N = 1 THEN PRINT “YOU TYPED IN NUMBER 1 
" 
3@ IF N = 2 THEN PRINT "YOU TYPED IN NUMBER 2 
" 
40 IF N = 3 THEN PRINT “YOU TYPED IN NUMBER 3 
” 
5@ IF N = 4 THEN PRINT “YOU TYPED IN NUMBER 4 


* 


60 IF N = 5 THEN PRINT "YOU TYPED IN NUMBER 5 
” 
Run the program several times, typing in different numbers. 

Let’s examine the program. Line 19 asks for a number between 1 
and 5. Lines 20-69 check to see what number you typed in and PRINT 
the appropriate message. For example, if you typed in 3 the only con- 
dition that would be true is N = 3 in line 49. The computer would 
therefore PRINT: 


YOU TYPED IN NUMBER 3 


All other conditions were false so the corresponding instructions were 
ignored. 
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Error checking 


Have you thought about what would happen if the number you typed 
in was not between 1 and 5? Can you suggest a way to overcome this 
problem? 

Add the following line to the program: 


16 IF N < 1 OR N > 5 THEN 10 


The sign < means ‘less than’; the sign > means ‘more than’. (There 
is no need to use THEN GOTO 19, as THEN 19 will give the same 
result.) 

LIST the program. It should look like this: 

1@ INPUT “TYPE IN A NUMBER BETWEEN 1 AND 5 "; 

N 

15 IF N < 1 OR N > 5S THEN 10 

20 IF N = 1 THEN PRINT “YOU TYPED IN NUMBER 1 


3@ IF N = 2 THEN PRINT "YOU TYPED IN NUMBER 2 
" 
40 IF N = 3 THEN PRINT “YOU TYPED IN NUMBER 3 
te 
5@ IF N = 4 THEN PRINT “YOU TYPED IN NUMBER 4 


60 IF N = & THEN PRINT "YOU TYPED IN NUMBER 5 


Line 15 checks to see IF the number you typed in is less than 1 or 
IF the number is more than 5. If the number is less than 1 or more 
than 5 the computer jumps back to line 19 and asks for a number again. 
If the number is within the boundaries, the program continues. This 
is called error checking or user proofing. 

Can you see how this program could be written more efficiently? 
Because of the IF-THEN statement in line 15 we know that if the pro- 
gram continues past here the value for N must be between 1 and 5. 
So there is no need to check the value of N with further IF-THEN state- 
ments. Delete lines 30-60 and change line:29 to read: 


20 PRINT "YOU TYPED IN NUMBER";N 


40 


LIST the whole program. It should look like this: . 

1@ INPUT “TYPE IN A NUMBER BETWEEN 1 AND 5 "; 
” 

15 IF N < 1 OR.N > 5 THEN 10 . 

20 PRINT "YOU TYPED IN NUMBER" ;N 


As you can see, this program is far simpler and more compact yet does 
exactly the same thing. : 


Comparisons in IF—THEN statements 


String expressions and string variables, as well as numeric expressions 
and numeric variables, can be compared in IF-THEN statements. For 
example, if you typed in: 


IF "ADAM" < "EVE" THEN PRINT "TRUE" 


and pressed < RETURN> the computer would respond with: 
TRUE 


A string is said to be ‘less than’ another string if it comes before it 
alphabetically. Likewise a string is greater than another string ifit comés 
after it alphabetically. Strings are equal if, and only if, they are identical. 
To demonstrate this, type in the following program: 


16 INPUT “TYPE IN A PERSON’S NAME ";N1$ 

20 INPUT "TYPE IN ANOTHER PERSON’S NAME ";N2$ 

3@ PRINT 

40 IF N1$ > N2$ THEN PRINT N1$;" COMES AFTER 
";N2$;" ALPHABETICALLY” 

50 IF N1$ < N2$ THEN PRINT N1$;" COMES BEFORE 
";N2$;" ALPHABETICALLY" 


60 IF N1$ = N2$ THEN PRINT "BOTH NAMES ARE 
THE SAME" 


RUN the program. I'll leave it to you to figure out how it works. 
Being able to compare strings is extremely useful and is mainly used 
for sorting information into alphabetical order. 


At 


Counting the loops 


In Chapter 7 we looked at how to make a loop by using the GOTO 
statement and continually jumping or branching back to an earlier line 
number. By using the IF-THEN statement along with a loop counter 
we can control the number of times the loop actually loops. 

To demonstrate this to yourself, type in this program: 

1@ N = @ 

2@ PRINT “THIS PROGRAM WILL COUNT TO 18" 

3@N=N +1 

40 PRINT N 

50 IF N < 10 THEN 30 

6@ PRINT “FINISHED COUNTING TO 10" 


When you RUN the program your screen should look like this: 


THIS PROGRAM WILL COUNT TO 10 
1 


oanroaar |S & 


10 
FINISHED COUNTING TO 10 


Can you see how the program works? Line 19 initialises variable N 
to #. The variable N in line 39 is in this case the loop counter, as with 
each loop the variable is incremented by one. Line 5 checks to see 
if N is less than 19, and if it is the computer jumps back to line 30. 
If N is not less than 19 the loop terminates and the computer PRINTs: 


FINISHED COUNTING TO 18 


on the screen. 
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Summary 


1 IF-THEN statements are used to make comparisons and thus 
decisions in the form: IF condition THEN statementor line num- 
ber. , 

2 Error checking oruser proofing allows an input to be checked 
to make sure it satisfies given conditions in order for the program 
to function correctly. : 


. 3 String expressions and string variables as well as numeric ex- - 
pressions and numeric variables can be compared in IF-THEN 
statements. . 

4 A$ is said to be < BS if it comes before it alphabetically; A$ 
is said to be > B$ if it comes after it alphabetically; and A$ 
is said to = BS if, and only if, it is identical to BS. 

5 The ability to compare strings allows them to be sorted alpha- 
betically. 





Assignment .: 


Write a program that will countin a given step, starting ata given number 
and ending at a given limit. Use the INPUT statement to prompt for 
this information. 











Retutn RETURM 
RETURN ETYRN 
RETURN pEeTVN 
RED 


HK 
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9 Loops that know when to end: 
the FOR—NEXT statement 


In the last chapter we learned how to control how many times a loop 
actually loops by using a loop counter and the IF-THEN statement. 
There is, however, a much better way to write a ‘self terminating loop’ 
(a loop that knows when to end). Meet the FOR-NEXT statement. To 
see how the FOR—NEXT statement works, RUN this program: 

1@ FOR A = 1 TO 18 

2@ PRINT “THE VALUE OF A IS NOW";A 

3@ NEXT A 


The numbers 1—19 will be listed on your screen. 

In line 19 the variable A is called the counter variable, the number 
1 is the starting value for A and 19 is the ending value for A. When 
the program is RUN the variable A will be set to 1. Line 2@then PRINTs 
A. 


When the computer comes to the NEXT statement in line 39 the vari- 
able A is incremented by 1 and the loop is repeated until A is. equal 
to 19, at which point the program stops. 

The starting value does not have to be 1. For example, if you want 
to count from 1900 to 119 you could replace line 19 with: 


1@ FOR A = 100@ TO 1160 


LIST the program. We now have: 


1@ FOR A = 1000 TO 1100 
2@ PRINT "THE VALUE OF A IS NOW";A 
3@ NEXT A 


What happens if we want the loop to count in a STEP other than 
1? Simple, we just use the STEP statement! If we want our program 
to count in steps of 5 we change line 19 to read: 


10 FOR A = 1000 TO 110@ STEP 5 


This means that each time the loop is executed the counter variable 
is increased by 5. 
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When the STEP statement-is omitted, as in our previous program, 
the STEP automatically gets set to 1; that is, it defaults to 1. 

By making the starting value larger than the ending value and the 
step negative, we can even count backwards! Change line 19 to: 


10 FOR A = 108 TO 1 STEP -1 


The program will now count from 199 down to 1 in STEPs of 1. 


Pitfalls 


When using the FOR-STEP—NEXT statements there are several pitfalls 
to be wary of. The first of these is when the values are set so that the 
loop should not execute, such as: 

FOR C = 2@ TO 1 
(starting value is more than ending value) or: 

FOR X = 5 TO 100 STEP -1 
(counting up in a negative step). 
In theory none of these loops should execute, but in fact everything 
inside the loop may execute once. This is because some computers do 


not check the value of the counter variable until they reach the NEXT 
statement. . 


Nested loops 


When a loop is inside another loop it is called a nested loop. Take, for 
example, the following program: 


1@ FOR I = 1 TO 3 
20 PRINT "I HAVE A HABIT” 


40 FOR J = 1 TO 5 
5@ PRINT "OF REPEATING MYSELF" | 
6@ NEXT J 


76 PRINT 
8@ NEXT I 
The main loop in lines 19-89 is called the outside loop. The loop in 


lines 46-69 is called the inner or nested loop. Everything from lines 
2—7 Pwill be executed three times and during each loop line 5Pexecutes 
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5 times. A simple calculation tells us that line 59 will execute 15 times, 
ie 3 X 5. Try it and see for yourself. In a nested loop the outside loop 
simply controls how many times the inner loop will be executed. These 
programs will both give the sanie output: 


18 
20 
30 
48 
. 50 


10 
20 
36 
48 
58 
66 
78 


c = @ 
FOR I 
Cc =C + 
PRINT C 
NEXT I 


1 TO 16 
l 


Cc = 6 

FOR I = 
FOR J 
c=C + 
PRINT C 
NEXT J 
NEXT I 


non 
a 
ar) 
> 


Can you see why? 

The first program uses a single loop causing the counter (C = C 
+ 1) and the PRINT C statement to execute 16 times. The second pro- 
gram uses nested loops. The inside loop causes the counter (C = C 
+ 1) and the PRINT C statement to be executed 4 times and the outside 
loop causes the inner loop to execute 4 times. The result is that the 
counter and PRINT statement executes 16 times. © 

Let’s use our new knowledge to write a program that PRINTs the 
1 to 12 times table. Here is the program: 


18 
28 
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FOR N = 1 TO 12 
PRINT "PRESS <RETURN> FOR";N; "TIMES TABLE" 


INPUT A$ 

PRINT 

FOR T = 1 TO 12 

PRINT T;"TIMES";N; "="; TAN 


7@ NEXT T 

88 PRINT 

96 NEXT- N 
Try writing this program without using the nested loops! 

Be careful when using nested loops that the loops do not cross. This 
program will not work as the loops cross: 

1@ FOR I = 1 TO 108 

28 FOR N = 20 TO 508 

3@ NEXT I 

40 NEXT N 







This program will work as the loops do not cross: 
1@ FOR I = 1 TO 100 


2@ FOR N = 2@ TO 500 
730 NEXT N 
\ 
\ 4@ NEXT I 


/ tsa good idea when using nested loops to use different variables 
in each loop, as sometimes the computer can become confused as to 
which loop it’s in. I told you computers were stupid. 


Summary 


1 The FOR—NEXT statement allows us to create a self- 
terminating loop. 

2 Using the STEP statement in conjunction with FOR-NEXT 
statements allows the counter variable to be incremented (or 
decremented) in steps other than one. 

3 A nested loop is a loop inside another loop. 

4 When using nested loops be sure that the loops do not ‘cross’. 

5 Use different variables in nested loops as sometimes the com- 
puter may become confused. 





Assignment 


Write a few programs using nested loops to aid in your understanding 
of them. 
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40 The DIM statement 


The problem with the variables we have used so far is that you do not 
always know how many will be needed later on in the program. An 
array allows multiple pieces of information to be stored in a variable 
under one name. This can be best understood by typing in the following: 


A(1) = 129 
‘A(2) = 10 
A(3) = -25 


These are called subscripted variables. A(1) is ‘A subscript 1’, A(2) is 
‘A subscript 2’ and so on. When you want to use an array it is necessary 
to DiMension the array. The DIM statement tells the computer to set 
aside enough memory for the array. For example: 


DIM X$(100) 


This will create a string array X$ with 191 locations although most 
programmers do not use the subscript @ Just imagine the string array 
X$(109) to look like this: 





The real power of arrays lies in the ability to use variables as subscripts. 
Examine the following program carefully and see if you can understand 
how it works before RUNning it: 

1@ INPUT “HOW MANY NAMES";N 

20 DIM N$(N) 

30 FOR I = 1 TON 

40 PRINT “ENTER NAME ";1I; 

50 INPUT N$(I) 

6@ NEXT I 

70 PRINT 


48 fe 


8@ PRINT “THE NAMES YOU ENTERED ARE :" 

90 PRINT ; 

10@ FOR J = 1 TON 

11@ PRINT N$(J) 

12@ NEXT J 
Have you worked it out? Line 19 asks for how many names you wish 
to enter and assigns this value to the variable N. Line 2 DIMensions 
N$ for N locations. The FOR—NEXT loop in lines 30-59 provides the 


subscript I for the array N$(1) to NS$(N). Likewise the FOR-NEXT loop 
in lines 98-119 provides the subscript J for the array N$(1) to NS(N). 


Mission impossible 


Can you imagine how difficult, if not impossible, this program would 
be if we did not use array variables? This program (if you could call 
it that) shows the problem: 

1@ PRINT "WHEN ALL NAMES ARE ENTERED TYPE IN 

’ STOP oe 

2@ INPUT “ENTER A NAME"; A$ 

3@ IF ‘A$ = "STOP" THEN 1000 

40 INPUT "ENTER A NAME"; B$ 

5@ IF B$ = "STOP" THEN 1000 

6@ INPUT “ENTER A NAME ";C$ 

76 IF C$ = "STOP" THEN 1000 

‘ 3A 


e eee 

1000 PRINT "THE NAMES YOU-ENTERED ARE :" 
1010 PRINT A$ Z 

1020 PRINT B$ eee 


1038 a 


va 


ean 
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As you can see, it is close to impossible as you do not know how many 
names will be entered. 


Databases 


Acommon example of the use of an array is the simple database pro- 
gram. A database program simply deals with information or data, allow- 
ing you to add, delete, change, display, search, sort and in general just 
manipulate the information. The following program allows you to find 
a person’s address and telephone number simply by their name. When 
you RUN the program you will be asked how many people you wish 
to enter. If you type in 5, you will be asked for 5 names, addresses and 
telephone numbers. You will then be prompted for the name to search 
for. If that name is not in the file a ‘FILE NOT FOUND’ message will 
be given; otherwise the person’s address and telephone number will 
be displayed. 

1@ INPUT "HOW MANY NAMES";N 

2@ PRINT 

3@ DIM N$(N) 

4@ FOR I = 1 TON 

5@ INPUT “NAME ";N$(I) 

GO INPUT "ADDRESS ";A$(I) Nemo & lors woke 

70 INPUT "TELEPHONE ";T(I) wu, ic’ 4 FE 

8@ PRINT . 

98 NEXT I 

1@@ PRINT 

11@ INPUT “ENTER NAME TO SEARCH FOR ";N$ 

120 P = 

13@ FOR J = 1 TON 

14@ IF N$(J) = N$ THEN LET P = J 


," 


15@ NEXT J 

16@ IF P = @ THEN 240 

17@ PRINT 

18@ PRINT “RECORD FOUND" 

198 PRINT 

208 PRINT "NAME : "SN$(P) 


210 PRINT “ADDRESS : ";A$(P) 
22@ PRINT “TELEPHONE : ";T(P) 
230 GOTO 100 ; 

24@ PRINT 

258 PRINT "RECORD NOT FOUND" 
260 GOTO 100 


The following is an example of what to expect (your display may be 
different if you did not type in the same data as I did): 


HOW MANY NAMES? 3 


NAME ? CHRIS 
ADDRESS ? 35@ DRAGSTRIP DRIVE HOT TOWN 
TELEPHONE ? 293847 


NAME ? MARK 
ADDRESS ? 253 SHEEPDIP ST SHEPHERD GROVE 
TELEPHONE ? 463728 


NAME ? OWEN 
ADDRESS ? 351 JALOPY CRT DREAMERS PARADISE 
TELEPHONE ? 436776 

ENTER NAME TO SEARCH FOR ? CHRIS 

RECORD FOUND 

NAME + CHRIS 

ADDRESS : 35@ DRAGSTRIP DRIVE HOT TOWN 
TELEPHONE : 293847 


ENTER NAME TO SEARCH FOR ? ALLAN 


RECORD NOT FOUND 


o1 


Let’s have a look at how the program works. Line 1f asks for the number 
of persons to be entered. Line 20 PRINTS a blank line. Line 39 DIMen- 
sions N$, A$ and T for N locations. Lines 49-99 ask for the persons’ 
names, addresses and telephone numbers. Line 119 asks for the name 
of the person to search for. Line 129 initialises P= (P is the record 
number of the name to be found in the file). Lines 139-150 do the actual 
searching. If the person’s name is the third record in the file, then P 
is set to 3. If the person is not in the file then P=9 at the end of the 
search. Line 169checks to see if P = @ If it does then the computer jumps 
to line 249 where it gives the message ‘RECORD NOT FOUND’ and 
then jumps back to line 19 f and asks for the next name. Lines 170-239 
display the message ‘RECORD FOUND’ along with the actual record. 


Inconvenient 


The problem with this program is that the data has to be entered each 
time the program is RUN. This is not very convenient to say the least. 
For a program of this sort to become of any use we would need to store 
the data on an external storage device such as a tape or a disk drive. 
Then, each time the program is RUN the data can be retrieved from 
the storage device, modified if necessary, and then re-stored on the tape 
or disk drive. It would not be practical for me to talk about using tape 
or disk drives as the method of using them varies from machine to 
machine. When you have completed this book you will be able to take 
advantage of whatever hardware you have. 

There is, however, a way that does not require the data to be entered 
every time the program is RUN. We'll look at this in the next chapter. 
We will be using this program again, so if you can SAVE it on a disk 
or tape do so. 


Many dimensions 


There are in fact two (and on many computers, even more) types of 
arrays, one-dimensional and two-dimensional. The arrays we have used 
so far are one-dimensional arrays. If you try and imagine two- 
dimensional arrays in the same way as I explained one-dimensional 
arrays (in little boxes) it is probably best to think of rows and columns. 

The form of the two-dimensional array is A(R,C) or A$(R,C) where 
A or A$ is the array name, R is the row and C is the column. A two- 
dimensional array could even be thought of as two one-dimensional 
arrays together. For example: 


DIM A(5,5) 
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will create an array A with 5 rows and 5 columns. Just imagine the 
array to look like this: 


Fa ane | ate | aetn| te 
Ta [ae | ants | ate | te 
[wa [ ane | dats | ata | | 





So the data in the third row in the fourth column could be represented 
by A(3,4). 
Try the following program: 


10 INPUT "HOW MANY ROOMS ";R 

2@ INPUT "HOW MANY ITEMS IN EACH ROOM ";T 
30 PRINT 

40 DIM A$(R,I) 

5@ FOR X = 1 TO R 

60 PRINT 

7@ PRINT "ROOM"; X 

8@ PRINT 

9@ FOR Y = 1 TO I 

10@ PRINT “ENTER ITEM"; Y; 

110 INPUT A$(X,Y) 

120 NEXT Y 

13@ NEXT X 

148 PRINT 

15@ INPUT “WHICH ROOM DO YOU WISH TO EXAMINE 


160 IF N < 1 OR N > R THEN 150 


17@ PRINT 
180 PRINT "THE ITEMS IN ROOM";N;"“ARE : “ 
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19@ PRINT 

20@ FOR J = 1 TO I 

21@ PRINT A$(N,J) 

220 NEXT J 

23@ GOTO 148 
The program will ask you how many rooms and how many items in 
each room. You then enter the items that are in each room (eg television, 
tables etc). Then by specifying the room number the program will dis- 
play the contents of that room. Not very exciting I know, but it does 
show the technique of using two-dimensional arrays. The following is 
an example of what to expect: 

HOW MANY ROOMS ? 3 

HOW MANY ITEMS IN EACH ROOM ? 3 


ROOM 1 
ENTER ITEM 1 ? BED 


ENTER ITEM 2 ? DRESSING TABLE 
ENTER ITEM 3 ? WARDROBE 


ROOM 2 


ENTER ITEM l ? SINK 
ENTER ITEM 2 ? TABLE 
ENTER ITEM 3 ? CUPBOARD 


ROOM 3 
ENTER ITEM 1 


ENTER ITEM 
ENTER ITEM 3 


i) 


TELEVISION 
RUG 
LOUNGE SUITE 


Ls) 
ON 
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WHICH ROOM ? 1 
THE ITEMS IN ROOM i ARE : 


BED 
DRESSING TABLE 
WARDROBE 


WHICH ROOM ? 


Let's examine how the program works. Line 19 asks for the number 
of the room. Line 29 asks for the number of items in each room. Line 
30 PRINTs a blank line. Line 49 DIMensions A$ for R rows (rooms) 
and columns (items). The loop in line 59 is the outside loop (number 
of rooms) causing the inside loop (the one that asks for the items) to 
be repeated R times. Line 159 asks which room you wish to examine. 
Line 169 checks for a valid INPUT. Line 179 PRINTs a blank line. Lines 
189-229 PRINT the items in room R. Line 239 causes a jump to take 
place back to line 149. 


Summaty 


1 A problem with simple variables is that it is not always known 
how many will be needed. 

2 Arrays allow data to be stored under one variable name and 
accessed with subscripts. 

3 The DIM statement reserves an area of memory where the array 
will be stored. 

4 Adatabase program can be used to add, delete, change, display, 
search, sort and generally manipulate data. 

5 Adatabase program must be able to store its data on an external 
storage device, such as a tape or disk drive, otherwise the data 
must be re-entered each time the program is RUN. 

6 The two-dimensional array uses two subscripts to access one 
piece of data. 





Assignment 


Write a program that allows several families to be entered. You should 
then be able to search, for example, the third child in the second family 
or whatever. You should also be able to list all members of a given 
family. 
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44 REMarks and multiple statements 


The REM statement 


The REM statement allows you to make comments or REMarks within 
a program. The computer will ignore the REM statement and everything 
that follows it on the same line when the program is RUN. 

Look at the following program: 


10@ 
118 
126 
138 
146 
150 
160 
178 
180 
198 
206 
2108 
2268 
230 
240 
250 
260 
278 
280 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
PRINT 
REM 
REM 
REM 
INPUT 
REM 
REM 
REM 
END 


THE REM STATEMENT ALLOWS 
YOU TO SAY ANYTHING YOU 
WANT TO IN THE PROGRAM. 
IT IS MAINLY USED AS AN 
AID TO THE PROGRAMMER 
WHEN ’DEBUGGING’ THE 
PROGRAM 


---- PRINT A MESSAGE --~- 


“HELLO THERE" 


---- ASK FOR A NAME ----- 


“PLEASE TYPE IN YOUR NAME ";N$ 


---- END OF PROGRAM ----- 


Get the picture? The REM statements are only shown when the program 
is LISTed. If you RUN this program all you will see is: 


HELLO THERE 
PLEASE TYPE IN YOUR NAME ? 


fy] 


As wewrite more complicated programs the need for REMarks within 
a program increases. Professional programmers use REMark state- 
ments extensively during program development, and when the program 
is completed and free of bugs the REM statements are deleted as they 
are of no further use. 


Multiple statements 


Some computers allow you to use more than one statement per line. 
For example, this program: 

10 PRINT 

20 PRINT 

3@ LET A = 2 * 4. 

460 PRINT A 


could be written as: 
10 PRINT : PRINT : LET A = 2 * 4: PRINT A 


On most computers, the separator is the colon (:), although a few (older) 
computers use the backslash (/). Multiple statements make programs 
harder to read. Why, then, do programmers use them? 

If more than one statement is to be executed after an IF-THEN state- 
ment, without using multiple statements there are two ways to do it: 


116 IF A = 3 THEN PRINT “CORRECT" 
12@ IF A = 3 THEN LET S = 10 
13@ IF A = 3 THEN 30 


This is a cumbersome method as the same IF—-THEN statement is used 
three times. Another way is that used in the last chapter: 


110 IF A = 3 THEN 1068 


58 


160@ PRINT “CORRECT" 
1616 LET S = 18 
18026 GOTO 30 


This is a better method but it involves the use of subroutines. Normally 
subroutines are a good idea but when they are as small and simple 
as this one they clutter up the program. 

An even better solution is to use multiple statements like this: 


110 IF A = 3 THEN PRINT "CORRECT" : LET § = 1 
: GOTO 3@ 


Far neater and more compact, don’t you agree? But this doesn’t mean 
that you should cram a whole program on one line (most computers 
only allow 255 or fewer characters on each line anyway). There are 
times, however, when multiple statements are necessary and more prac- 
tical, as you will see in the next chapter. 


Summary 


1 REM statements are useful for putting comments or notes in 
a program to make the program easier to read, and therefore 


debug. 

2 REM statements are ignored by the computer and never execu- 
ted. , 

3 Multiple statements make programs neater and more compact, 
but at the expense of readability. 





Assignment 


Go back and convert some of our earlier programs so that they use 
multiple statements. , : 
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42 Storing DATA in a program 


READ-DATA statements allow DATA to be stored on program lines. 
The DATA can then be READ into variables. 
Type in and RUN the following program: 


1@ READ A,B,C 
2@ PRINT A : PRINT B : PRINT C 
°3@ DATA 10,122,-23 
Your screen should look like this: 
10 
122 
-23 
When line 19 is executed the computer READs the first piece of DATA 
into the variable A, the second piece of DATA into the variable B, and 
the third piece of DATA into the variable C. Note that the line containing 
the DATA statements does not have to appear first. When a READ state- 
ment is executed the computer looks through the rest of the program 
for the actual DATA. . 
Data is always read sequentially. If you wish to retrieve the tenth 
piece of DATA the computer must READ the preceding nine pieces 
of DATA first. . 


If you try to READ more DATA than there is you will receive an ‘OUT. 
OF DATA’ error message. Try the following program: 


1@ READ A,B,C 

2@ DATA 444,909 
As you can see, there are only two pieces of data (called elements) but 
the program tries to READ three elements, so the program will crash 
and PRINT an error message such as ‘OUT OF DATA IN LINE 19. 


String data can also be used in DATA statements. Some computers 
require quotation marks around the strings while others don’t. Try both 


ways and see which method your computer uses (mine doesn’t require 
quotation marks so I'll omit them). Try this program: 

1@ READ A$,B$,C$,D$ 2 

2@ PRINT A$ : PRINT B$ 

3@ PRINT C$ : PRINT D$ 

4@ DATA HICKORY DICKORY DOCK 

5@ DATA THREE MICE RAN. UP THE CLOCK 

6@ DATA THE CLOCK STRUCK ONE 

70 DATA AND THE OTHER TWO GOT AWAY WITH MINOR 

INJURIES 

This is what to expect: 

HICKORY DICKORY DOCK 

THREE MICE RAN UP THE CLOCK. 

THE CLOCK STRUCK ONE 

AND THE OTHER TWO GOT AWAY WITH MINOR INJURIES 
If this will not work then try using quotation marks around the strings, 
like this: 

48 DATA “HICKORY DICKORY DOCK" 

50 DATA "THREE MICE RAN UP THE CLOCK" 

6@ DATA “THE CLOCK STRUCK ONE" 

76 DATA “AND THE OTHER TWO GOT AWAY WITH 

MINOR INJURIES" 

The READ-DATA statements really only come into their own when 
used with arrays. By using a FOR-NEXT loop you can READ lots of 


DATA into an array variable quickly and easily. The following program 
demonstrates this: , 


16 DIM A$(5),B$(5) 
20 FOR I = 1 TO & 
30 READ A$(I),B$(I) 
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460 NEXT I 

5@ FOR J = 1 TO 5 

6@ PRINT "THE CAPITAL OF ";A$(J);" IS ";B$(J) 
76 NEXT J 

8@ DATA AUSTRALIA, CANBERRA 

9@ DATA THE UNITED STATES ,WASHINGTON 

16@ DATA BRITAIN, LONDON 

11@ DATA SPAIN,MADRID 

12@ DATA FRANCE, PARIS 


See how it only takes three lines to READ ten elements of DATA. With- 
out the use of the READ—DATA statements you would have to enter 
the countries and their capitals every time the program is RUN. The 
only limitation of the READ-DATA statements is that if you want to 
change the DATA you must modify the program. 

Here is a sample RUN: 


THE CAPITAL OF AUSTRALIA IS CANBERRA 
THE CAPITAL OF THE UNITED STATES IS 
WASHINGTON 

THE CAPITAL OF BRITAIN IS LONDON 

THE CAPITAL OF SPAIN IS MADRID 

THE CAPITAL OF FRANCE IS PARIS 


Back to base 


Let's modify the simple database program we wrote in Chapter 19 to 
use the READ-DATA statements. (You can put your own DATA in place 
of mineifyou wantto. Just make sure it follows the format name, address, 
telephone number). 

1@ FOR I = 1 TO 5 

2@ READ N$(I),A$(I),T(I) 

3@ NEXT I 

40 PRINT : INPUT "ENTER NAME TO SEARCH FOR "; 


N$ 


62 


58 
60 
70 
8@ 
98 


P=@6 

FOR J =1T05 | 

IF N$(J) = N$ THEN LET P = J 

NEXT J 

IF P = @ THEN PRINT : PRINT "RECORD NOT 


FOUND" : GOTO 48 


100 
118 
128 
138 
140 
156 
168 
178 
188 
198 


PRINT : PRINT "RECORD FOUND" : PRINT 
PRINT “NAME > "SN$(P) 

PRINT “ADDRESS : “3 A$(P) 

PRINT “TELEPHONE : ";T(P) 

GOTO 40 

DATA SHELL,HEARTBEAT CITY, 181081 
DATA ELBOW,DUNG TOWN, 238973 

DATA MUCHO MAN,GRAND HORSEY, 873429 
DATA THE FONZ,THE GARAGE, 237747 

DATA SLUGGO,CANNABA CITY, 678437 


When you RUN this program the DATA is READ into the arrays and 
you are then asked for the name to search for. If you look carefully 
you will also notice that as well as modifying the program to use the 
READ-DATA statements it has also been changed to use multiple state- 
ments. You may also notice that it is quite a bit more difficult to read. 
Let’s use the REM statements to aid in legibility. Add these lines to 
the program: 


4 REM 
5 REM *** READ DATA INTO ARRAYS ***% 
6 REM 


34 
35 
36 
54 
55 
56 
‘B4 


REM 

REM xxx ENTER NAME TO FIND *** 
REM 

REM 

REM *** SEARCH FOR NAME *xx 
REM 

REM 
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85 
86 
94 
95 
96 


REM *xxX NAME NOT FOUND *xx 
REM 

REM 

REM *xXX NAME FOUND **x 

REM 


144 REM 
145. REM ¥*x** NAMES IN THE FILE *** 
146 REM 


LIST the program. It will now look like this: 

4 REM 

5 REM *xXX READ DATA INTO ARRAYS ¥*** 
6 REM 
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16 
20 
30 
34 
35 
36 
40 
N$ 
58 
54 
55 
56 
68 
70 
8@ 
84 
85 
86 


FOR I = 1 T0 5 

READ N$(I),A$(I),T(I) 

NEXT I 

REM 

REM %*x* ENTER NAME TO FIND *** 

REM 

PRINT : INPUT "ENTER NAME TO SEARCH FOR "; 


P = 6 


REM *%** SEARCH FOR NAME *xx* 
REM 

FOR J = 1 TO 5 

IF N$(J) = N$ THEN LET P = J 
NEXT J 

REM 

REM %**k NAME NOT FOUND *xx 
REM 


90 IF P = @ THEN PRINT : PRINT “RECORD NOT 
FOUND" : GOTO 40 ’ 

94 REM 

95 REM *xkx NAME FOUND *x* 

96 REM 


100 
110 
126 
130 
140 
144 
145 
146 
158 
160 
170 
180 
198 


PRINT : PRINT "RECORD FOUND" : PRINT 
PRINT "NAME : "SN$(P) 

PRINT "ADDRESS  : ";A$(P) 

PRINT "TELEPHONE : ";T(P) 

GOTO 48 

REM 

REM *xk NAMES IN THE FILE *** 

REM . 

DATA SHELL,HEARTBEAT CLTY,181@81 
DATA ELBOW,DUNG TOWN, 238973: 

DATA MUCHO MAN,GRAND HORSEY, 873429 
DATA THE FONZ,THE GARAGE, 237747 . 
DATA SLUGGO,CANNABA CITY,678437 


The program instantly becomes far easier to read as it now appears 
to be in blocks rather than one big jumbled mess! 


The RESTORE statement 


Say you wish to READ the same DATA more than once in a program. 
To do this you must reset the pointer. The pointer can be thought of 
as a finger indicating the next piece of DATA to be READ. For example, 
after the first three elements of DATA have been READ in line 19 below 


the pointer points to the fourth DATA element, the number 499. . . 


1@ READ X,Y,Z 
2@ PRINT X,Y,Z 
30 DATA 160,208, 300,400 
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The output on your screen should look something like this: 
108 286 368 


To allowthe computer to READ the fourth piece of DATA add the follow- 
ing lines: 

4@ READ A 

5@ PRINT A 


The output is now. 


108 208 308 
460 


If we wanted to re-READ the DATA we would have to first RESTORE 
the DATA. Some computers allow you to RESTORE the DATA selec- 
tively: for example, RESTORE 39 would RESTORE only the DATA on 
line 30. Other computers only allow you to RESTORE all the DATA; 
that is, they set the pointer back to the first item. 

Add the following lines to the program: 

6@ RESTORE 

7@ READ A,B,C,D 

8@ PRINT : PRINT "THE RE-READ DATA IS..." 

9@ PRINT : PRINT A;B;C;D 

The RESTORE statement resets the pointer to the start of the DATA 
and the DATA is then re-READ into the variables A, B, C and D. When 
you RUN the program ‘this is what you should get: 

108 200 306 

400 


THE RE-READ DATA IS... 


100 200 300 400 


66 


Summary 


1 The DATA statement allows DATA to be stored in a program; 
the READ statement allows the DATA to be read into variables. 


2 DATA is read sequentially. In order to retrieve a given element 
of DATA, all the preceding pieces of DATA must be READ first. 


3 The RESTORE statement ‘resets’ the pointer to the first DATA 
element. 





Assignment 


Modify the database program so that additional names can be added 


or change it so that you can search by telephone number as well as 
by name. 
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43 Display in rows and columns 


The TAB function 


Sometimes we need to be able to PRINT data starting at a particular 
column on the screen. Take, for example, the following proble 

-You need a program that will READ the make, model and year of 
a list of five cars from DATA statements. You then want this DATA 
displayed in rows and columns so that the output would look something 
like this: 


MAKE MODEL YEAR 
CHEVROLET CORVETTE 1984 
PONTIAC FIREBIRD 1982 
LAMBORGHINI COUNTACH 1983 
FERRARI BOXER 1978 
PORSCHE 911 TURBO 1983 


Simple, eh? Not really though. If we used the following program to try 
and achieve this output it wouldn’t work. Can you see why? 


1@ FOR I = 1 TO 5 
20 READ A$(I),B$(1I),C$(I) 


30 NEXT I 

46 PRINT “MAKE MODEL YEAR" 

50 PRINT 

6@ FOR J = 1 TO 5 

7@ PRINT A$(J);" "SsB$(J);" "3c$(J 
) 

8@ NEXT J 


9@ DATA CHEVROLET, CORVETTE, 1984 
160 DATA PONTIAC, FIREBIRD, 1982 

11@ DATA LAMBORGHINI, COUNTACH, 1983 
12@ DATA FERRARI, BOXER, 1978 

13@ DATA PORSCHE,911 TURBO, 1983 
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The output from this program would look like this: 


MAKE MODEL - YEAR 
CHEVROLET CORVETTE 1984 
PONTIAC FIREBIRD 1982 
LAMBORGHINI COUNTACH 1983 
FERRARI BOXER 1978 
PORSCHE 911 TURBO 1983 


Confused isn’t it? Because the names of the makes and models of the 
cars are of different lengths the table is difficult to read. However, by 
replacing the spaces (field separators) between the headings with a 
couple of TAB functions all is well. The program would look like this: 


10 FOR I = 1 T0 5 

26 READ A$(I),B$(1I),C$(I) 

3@ NEXT I 

40 PRINT "MAKE"; TAB(15); "MODEL"; TAB(3@); "YEAR 


5@ PRINT 
6@ FOR J = 1 TO 5 

7@ PRINT A$(J);TAB(15);B$(J); TAB(3@);C$(J) 
8@ NEXT J 

90 DATA CHEVROLET, CORVETTE, 1984 

10@ DATA PONTIAC, FIREBIRD,1982 

11@ DATA LAMBORGHINI, COUNTACH, 1983 

120 DATA FERRARI, BOXER, 1978 

13@ DATA PORSCHE,911 TURBO, 1983 


Patterns 


We can of course use the TAB function for less serious purposes. Try 
the following program: 

1@ INPUT "ENTER YOUR NAME ";N$ 

2@ FOR I = 1 TO 10@ STEP .25 

3@ A = 15 + 14 ® SIN(I) 

4@ PRINT TAB(A);N$ 

50 NEXT I 
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Don’t worry about the SIN function in line 3. (It’s a mathematical func- 
tion that finds the sine of a number. Apart from this instance we will 
not talk about itin this book.) — 

Some computers may need line 39 to be changed to: 


3@ A = INT(15 + 14 * SIN(I)) 


in order for it to work The INT function causes the number to be 
rounded off to a whole number. It has to be used for some computers 
as they will only accept whole numbers in TAB functions. We will be 
using the INT function again a little later. 

When you RUN the program this is what you will see (if your name 
is Peter): 


ENTER YOUR NAME ? PETER 


PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
PETER 
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This will continue for quite ‘a while so you may have to ‘break’ out of 
it unless you want to sit and wait. Experiment with the TAB function 
and see what patterns you can generate. 


Aligning decimal points 


When dealing with numbers there are times when even the TAB func- 
tion is not enough. The problem is the aligning of decimal points. To 
see what I mean, RUN this program: 

1@ FOR I = 1 TO §- 

26 READ A(I) 

3@ NEXT I 

46 FOR J = 1 TO 5 

5@ PRINT A(J) 

6@ NEXT J 

70 DATA 12.45,9.11,345.04, .84,43.65 


Your screen should look like this: 
12.45 
S11. 4 
345.04 
84 
43.65 


As you can see, the output is far from ideal. A way to align the decimal 
points is with the PRINT USING statement. 

The following is an improved version of the previous program but, 
unfortunately, not all versions of BASIC include the PRINT USING 
statement so the program may not work on your microcomputer. Try 
it and see. 

1@ FOR I = 1 TO 5 

2@ READ A(T) 

30 NEXT I 

46 FOR J = 1 TO 5 

5@ PRINT USING “###.##";A(J) 

6@ NEXT J 

7@ DATA 322.45,9.11,345.64, .84,43.65 
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The output from this program should look like this: 

12.45 
9.11 
345.04 
@.84 
43.65 

In the PRINT USING statement each hash symbol (#) represents a 

digit. By specifying more hash symbols before the decimal point larger 

numbers can be formatted. More hash symbols after the decimal point 


will display the number to more decimal places. For example, change 
line 59 to read: 


5@ PRINT USING "####. ####"; A(J) 


The program will now output the following: 


12.4500 
9.1100 
345.6406 
@.8480 
43.6506 


Get the picture? 
More than one number can be used in one PRINT USING statement. 
Try this: 


PRINT USING "“###. ## ###. $F ###.##"; 10.34, 
34.56,9 


You should get this: 
160.34 34.56 (9.06 

You can also mix strings with the numbers: . 
PRINT USING “THE TOTAL COST IS $ ###.##"; 
11.92 

Your screen will display the following: 
THE TOTAL COST IS $ 11.92 


72 


If you find your computer-lacks the PRINT USING statement use 
the following routine instead: 


18@@ REM A IS THE NUMBER TO BE FORMATTED 
1016 REM D IS NUMBER OF DIGITS 

1@26 REM P IS NUMBER OF DECIMAL PLACES 
103@. REM 

104@ REM MAKE SURE TO SPECIFY D AND P 
1050 REM BEFORE THE JUMP IS MADE 

1060 REM 

1076 I = INT(ABS(A)) : F = ABS(A) - I 


1080 S$ = LEFT$(STR$(A),1) 
1098 I$ = MID$(STR$(I),2) 
110@ F$ = MID$(STR$(F),3) + "@" 


111@ IF LEN(F$) < P THEN F$ = F$ + "@" : GOTO 
1118 . 

1120 IF LEN(I$) < D THEN I$ = * “" + I$ : GOTO 
1120 

1130 F$ = LEFT$(F$,P) 

1148 PRINT S$;1$;".";F$ 

115@ RETURN 

Simply place the routine at the end of your program and call it when 


needed by means of a GOSUB statement. Be sure to specify the number 
of digits before and after the decimal point before calling the routine. 


Wage slave 


The following program is a simple wage and tax calculator that does 
a few calculations and tells you everything you ever wanted to know 
about your wages. It told me everything I didn’t want to know about 
mine! 


10@ INPUT “ENTER TOTAL HOURS WORKED";T 

11@ INPUT “ENTER TOTAL EARNINGS BEFORE TAX";B 
12@ INPUT "ENTER TAX DEDUCTED";C 

13@ PRINT : PRINT 

146 TE =B/T: X=B-C: TH=X/T 
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15@ AD =C /T: P=C * 108 / B 

16@ PRINT USING “TOTAL EARNINGS PER HOUR 

$ ###.##"; TE , : 
17@ PRINT USING “AMOUNT TAKEN HOME PER HOUR 
$ ###.#2"; TH 

18@ PRINT USING “AMOUNT DEDUCTED PER HOUR 

$ ###.##"; AD 

19@ PRINT USING “PERCENT DEDUCTED FROM TOTAL 


###.## % ";?P 
oS 


What you should see when you RUN it is this (you can lie about your 
income if you want—I did). 
ENTER TOTAL HOURS WORKED? 40 
ENTER TOTAL EARNINGS BEFORE TAX? 456.66 
ENTER TAX DEDUCTED? 98.55 


TOTAL EARNINGS PER HOUR $ 11.25 
AMOUNT TAKEN HOME PER HOUR $ 8.79 
AMOUNT DEDUCTED PER HOUR $ 2.46 
PERCENT DEDUCTED FROM TOTAL 21.98 x 


Summary 


1 The TAB (X) function causes the expression to be printed at 
column X. 
2 PRINT USING is used to align decimal points, but is not avail- 


able on all machines. 
- 3 In the PRINT USING statement, hash (#) symbols are used to 
denote digits. : 
4 Strings can be included in PRINT USING statements to lael 
the numerical outputs. 





Assignment 


Write a program that allows you to enter some numbers and then print 
them with their decimal points aligned, along with the total underneath. 
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14 Advanced string handling 


In Chapter 8 we saw how to compare strings using the less than (<), 
greater than (>) and equal to (=) symbols. In Chapter 5 we discussed 
how to concatenate (add) strings with the plus (+) symbol. There will 
be times when further string handling is required, such as subtracting 
substrings (parts of strings) from strings, finding the length of a string 
(the number of characters in it) and so on. . 

The three functions for extracting substrings from strings are LEFTS$, 
RIGHTS and MID$. 


The LEFTS function 
Let's suppose you want to extract the left-most four characters from 
a string. This is how you'd do it: 
PRINT LEFT$("LESS BEWILDERED PARENT", 4) 
LESS 
To extract the left-most ten characters you simply change 4 to 19: 


PRINT LEFT$("LESS BEWILDERED PARENT", 1@) 
LESS BEWIL 


The RIGHTS function 


To extract the right-most four characters, simply use the RIGHTS func- 
tion in place of the LEFTS function: 


PRINT RIGHT$("LESS BEWILDERED PARENT", 4) 
RENT 


Instead of using just a string try it with a string variable: 
A$ = "LESS BEWILDERED PARENT" 


PRINT RIGHT$(A$,4) 
RENT 
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The MIDS function 


The two functions I've described allow you to get at the left-most and 
right-most characters within a string. What if you wanted to extract 
characters in the middle of a string? Simple. Use the MID$ function 
as in this example: 


A$ = "AN APPLE A DAY" 


The substring ‘APPLE’ can be extracted like this: 


“PRINT MID$(A$,4,5) 
APPLE oT 


You are telling the computer to extract five consecutive characters from 
A$ beginning with the fourth character from the left. If you omitted 
the second figure all characters from character four onwards would 
be extracted: 

PRINT MID$(A$, 4) 

APPLE A DAY 


Play around with these functions so that you become familiar with 
them. 


initial success 


With all this new-found knowledge, we can put together a program that 
prints the initials of a.person’s name. | 
10 INPUT “WHAT IS YOUR FIRST NAME ";F$ iy 
26 INPUT “WHAT IS YOUR LAST NAME ";L$ 
30 A$ = LEFT$(F$,1) 
48 B$ = LEFT$(L$,1) 
5@ PRINT 
66 PRINT “YOUR INITIALS ARE "S;A$;".";3BS;%." 


This is what your screen will look like when the program is RUN: 


WHAT IS YOUR FIRST NAME ? BRUNO 
WHAT IS YOUR SECOND NAME ? VAN SLOBBERCHOPS 


YOUR INITIALS ARE B.V. 
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The LEN function 


Sometimes we need to know how many characters a string has in it. 
The function that tells us this is LEN. Try this: 


A$ = "THIS STRING IS 33 CHARACTERS LONG" 


PRINT LEN(A$) 
33 
Fairly straightforward, isn’t it? 
Let’s combine what we have learned so far for a bit of fun. Try this: 
1@ INPUT "ENTER YOUR NAME ";N$ 
2@ L = LEN(N$) 
3@ FOR I = 1 TO L 
40 PRINT TAB(L — I); LEFT$(N$,I) 
56 NEXT I 


RUN it and enter your name. This is what you should see (if your name 
is Frederick): 


FRE 

FRED 
FREDE 
FREDER 
FREDERI 
FREDERIC 
FREDERICK 


Change line 49 to: 
4@ PRINT TAB(L -— I); LEFT$(N$,1);RIGHT$(N$,I) 


// 


The program should now look like this: 


10 INPUT "ENTER YOUR NAME ";N$ 

20 L = LEN(N$) 

3@ FOR I = 1 TO L 

4@ PRINT TAB(L — I); LEFT$(N$,1);RIGHT$(N$, I) 
5@ NEXT I 


The output should be something like this: 


FK 
FRCK 
FREICK o 
FREDRICK 
FREDEERICK 
FREDERDERICK 
FREDERIEDERICK 
FREDERICREDERICK 
FREDERICKFREDERICK 


There is really no end to what you can do with a bit of imagination. 
Play around with this type of program for a while. 


The STRS$ function 


A problem arises when we want to subtract substrings from. a numbér, 
or find the number of digits in a number. This is because the functions 
LEFT$, RIGHTS, MID$ and LEN only work with string data, not nu- 
meric data. The way to overcome the problem is simply to turn the 
number into a string. The function to do this is STR$. 

Let's say you wish to find the number of digits in the number A. If 
you were to try this: 


PRINT LEN(A) 
the computer would respond with the message ‘TYPE MISMATCHY or 


something similar. This means you have the wrong type of data inside 
the brackets. Now try this: 
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A$ = STR$(A) 


PRINT LEN(A$) 
6 

Aha, now it works you say — but wait, the number 65535 has only 5 
digits so why did the computer say it had 6? This is because one charac- 
ter space is reserved before the number for the sign of the number (posi- 
tive (+) or negative (—). When the number is positive the sign 
is invisible. 

If you're curious as to what A$ looks like, try PRINTing it. It should 
be the same as A. ; 

The same situation arises when we try to subtract a substring from 
data. Try this: 


A = 65535 


PRINT LEFT$(A, 4) 
The computer will again respond with ‘TYPE MISMATCH’. Now 
try this: 

A$ = STRS$(A) 


ry 


PRINE LEFT$(A$,4) 
655 


See howthe invisible sign takes up one character space? Always remem- 
ber this when converting numeric data to string data. 


The VAL function 


How do you convert string data into numeric data, I hear you ask. Easy. 
You use the VAL function. VAL finds the value of a string. Try this: 


A$ = "1234" 


PRINT VAL(A$) 
1234 
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If the string has anything other than digits in it, with the exception 
of a positive (+) or negative (—) sign at the start, its value will be 0. 
Try this: 
A$ = “HELLO THERE" 
PRINT VAL(A$) 
@ 


Or this: 
A$ = "555 IS A LARGE NUMBER" 


PRINT VAL(A$) 
555 


The VAL function is used mainly to determine if the string is a number 
or not. 
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Keyboard checker 


In order for your computer to recognise which key has been pressed, 
each key on your keyboard has a code number ranging between 9 and 
255.Most computers use a code called ASCII (American Standard Code 
for Information Interchange). For example, the letter A has the ASCII 
code of 65. The function to give the code of a characteris ASC. Try 
this: 

PRINT ASC("A") 


. 


65 : 
Can you guess the ASCII code of the letter C? Try this: 
A$ = "Co we 


PRINT ASC(A$) 
67 


If the string inside the brackets is more than one character léng, only 
the code of the first character will be returned. A few of the codes are 
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listed below, but a complete list is provided in most user's manuals. 


Character Code(S) 
9-9 48-57 
A-Z 65—90 
<SPACE> 32 
<RETURN> 13 
<ESC > 27 


If you want to know the code of any printable character use this pro- 
gram (but it won’t work for ‘invisible’ characters such as <ESC >, 
<SPACE > and control codes): 

1@ INPUT A$ 
20 PRINT A$;" = "3; ASC(A$) 
30 GOTO 18 


The CHRS function 
There is also a function that tells us what character a certain ASCII 
code is. This function is CHRS. Try this: 


PRINT CHR$(65) 


If you want to look at all of your computer's characters then you can 
use the next program. Notice that the loop starts at 33, not at @. This 
is because codes less than 33 are usually invisible. Codes from $-26 
are called control codes and are obtained by pressing the key called 
<CTRL > or <CTL> together with a letter A-Z. Control codes perform 
a certain function when PRINTed such as clearing the screen or 
changing colours. 

Type in the program and RUN it: 


1@ FOR C = 33 TO 255 
2@ PRINT CHR$(C);" "; 
36 NEXT C 


This will display the characters with codes from 33 to 255 on your 


screen. But don’t be surprised if you get strange results as some mach- 
ines use codes above 128 as control codes. 


81 


Word game 


We now know enough about codes and string handling to make a game 
with words. This program asks for a word and then calculates the value 
of the word by adding up the ASCII codes of each letter in the word. 
The object of the game is to get a word with the highest value (they 


must be real words). 


10 INPUT “ENTER A WORD ";W$ 


26 V = @ 

3@ L = LEN(W$) 

40 FOR I = 1 TO L 
5@ L$ = MID$(W$,I,1) 
6@ A = ASC(L$) 

70 V=aV+A 

8@ NEXT I 

9@ PRINT 


100 PRINT “THE VALUE OF THAT WORD IS :";V 


110 PRINT 
12@ GOTO 10 


A typical sample RUN is as follows: 
ENTER A WORD ? TECHNOLOGY 


THE VALUE OF THAT WORD IS 
ENTER A WORD ? BEWILDERED 


THE VALUE OF THAT WORD IS 


ENTER A WORD ? ANTIDISESTABLISHMENTARIANISM 


THE VALUE OF THAT WORD IS 


ENTER A WORD ? 
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764 


727 


2099 


a 


See if you can understand the program by yourself. If you get stuck 

here’s how it works: 

@ Line 19 asks for the word. ~ 

@ Line 20 sets V=9 (V is the variable for the value of the word). 

e Line 39 finds the length of the word and stores it in L. 

e Lines 49-89 set: up a FOR—NEXT loop from 1 to the length of the 
word (L). 

@ Line 59 gets each letter of the word and puts it in L$. 

@ Line 69 finds the ASCII code of that letter. 

@ Line 79 adds this code to the variable V. 

@ Line 199 PRINTs the value of the word on the screen. 






Summary 






1 LEFTS(A$, X) extracts the left-most X characters from A$. 
2 RIGHTS(A$, X) extracts the right-most X characters from A$. 
3 MIDS(AS, X, Y) extracts Y characters from A$, starting at the 

Xth character. 

4 MIDS(A$, X) extracts all characters to the right of, and includ- 
ing, the Xth character. 

5 LEN(AS) gives the number of characters in A$. 

6 The STR$ function is used to connect numeric data to string 
data ‘to allow string functions to be used. 

7 An extra character space is reserved at the start of a number. 
When converted to string data with the STR$ function the 
space will be PRINTed. 

8 VAL(AS) gives the value of a string. If the string commences 
with anything other than a digit, or a plus (+) or minus (—) 
sign, its value will be 9. 

9 Each character is assigned a code between 9 and 255, called 
an ASCII code. 

10 Codes $-26 are called control codes and are usually ‘invisible’. 



















Assignment 


Modify the word game so that two players can play against each other. 
Each player can enter five words and the program will then announce 
who has gained the highest overall score. Hint: have a separate variable 
for each player's score and use an IF-THEN statement to determine 
who the winner is at the end of the game. 
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15 The INT function 


The INTeger function on a computer rounds back a number with deci- 
mal places to a whole number. It’s called the INTeger function because 
‘integer’ is the mathematical term for a whole number. Try the following 
examples: 


A = 3.141 

PRINT INT(A) J 
3 

X = 9.9999 


PRINT INT(X) 
9 


The INT function can also be used to round offa number to the nearest 
whole number. 


PRINT INT(A + .5) 
3 


PRINT INT(X + ..5) 
10 , 


All that is required is that you add .5 to the number. The following short 
program saves you typing out the example each time: 


1@ INPUT "ENTER A NUMBER";N 


26 I = INT(N) 

30 F=N-I a 
46 R = INT(N + .5) 

5@ PRINT 


60 PRINT "INTEGER PART =";1 
7@ PRINT “FRACTIONAL PART =";F 
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8@ PRINT “NEAREST. WHOLE NUMBER =";R 
9@ PRINT : GOTO 186 


Here is a sample RUN: 
ENTER A NUMBER? 3.141 


INTEGER PART = 3 
FRACTIONAL PART = .141 ‘ 


NEAREST WHOLE NUMBER = 3 
ENTER A NUMBER? 9.6 
INTEGER PART = 9 
FRACTIONAL PART = .6 
NEAREST WHOLE NUMBER = 10 


ENTER A NUMBER? 

You can even use the INT function to check if a non-integer number 
has been entered when an integer is asked for. Try this program: 

1@ INPUT “ENTER A WHOLE NUMBER";N 

20 IF N < > INT(N) THEN PRINT "THAT’S NOT A 

WHOLE NUMBER" : GOTO 180 

3@ PRINT "THANK YOU FOR ENTERING A WHOLE 


NUMBER" 
Line 29 checks to see whether the number keyed in and the INTeger 
of the number are one and the same. If not, an appropriate message 
is PRINTed and the user is asked for an INTeger again. 
Using the same principle, we can get the computer to tell us what 
numbers are divisible by a given number. Try this program: 


1@ INPUT “START CHECKING AT WHAT NUMBER";S 
2@ INPUT "UP TO WHAT NUMBER";E 

3@ INPUT "TO BE DIVISIBLE BY WHAT";D 

4@ PRINT 

5@ FOR N = S TO E 

6@ IF INT(N / D) = N / D THEN GOSUB 180 

76 NEXT N 
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8@ PRINT 
98 GOTO 10 
100 PRINT N;"IS DIVISIBLE BY"3D 
110 RETURN 
Here is a sample RUN: 


START CHECKING AT WHAT NUMBER? 1 
UP TO WHAT NUMBER? 38 
TO BE DIVISIBLE BY WHAT? 3 


3 IS DIVISIBLE BY 3 
6 IS DIVISIBLE BY 3 
9 IS DIVISIBLE BY 3 
12 IS DIVISIBLE BY 
15 IS DIVISIBLE BY 
18 IS DIVISIBLE BY 
21 IS DIVISIBLE BY 
24 IS DIVISIBLE BY 
27 IS DIVISIBLE BY 
38 IS DIVISIBLE BY 
If you play around with this program you will soon discover it has several 
bugs. The first of these is that if you tell it to start checking at 9 it will 
say that 9 is divisible by whatever you entered for the divisor. The other 
bug is that it will crash if you enter 9 for the divisor, giving an error 


message such as ‘DIVISION BY ZERO ERROR IN LINE 69. See if 
you can fix these bugs. 


Ww wwew w Ww 


Built-in bugs 


If you haven’t discovered it already, you may be interested to know that 
some computers do not always tell the truth: they sometimes give results 
that are apparently incorrect. Try this on your computer: 


A = 100.6 


PRINT A - INT(A) 
- 59999 
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The correct result is obviously .6 but your computer (like mine) may 
PRINT .59999. Inaccuracies like these are bugs in the BASIC language 
(it's a software bug, not your computer's fault). Many bugs have been 
found over the years on various computers, and they don’t only concern 
numerical inaccuracy. Here are a few more examples: 
PRINT 100.5 - 100.2 
- 368003 


PRINT 99.99 - 99 
- 990006 


A= 11.111 


PRINT A * 10 - INT(A * 10) 
- 116001 


What results did your computer PRINT? See if you can discover other 
bugs. 


Rounding off 


Sometimes we need to be able to round off a numeral to a certain num- 
ber of decimal places. Some versions of BASIC have a function that 
does this for you, although most do not. If you want to round off a 
number N to X decimal places here is how to do it: 


A = INT(N * 10 * X + .5) / 10% X 


The number N rounded to X decimal places will be stored in A. 
You are probably wondering what the /\ sign is. If you haven’t got 
this sign on your keyboard look for 4 instead. It'll have the same effect. 
Here is a program that uses the above formula: 


1@ INPUT “ENTER NUMBER TO BE ROUNDED";N 
20 INPUT "TO HOW MANY DECIMAL PLACES"; X 
30 A = INT(N * 10 * X + .5) / 10% X 

46 PRINT : PRINT “ROUNDED NUMBER IS";A 

50 PRINT : GOTO 18 
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Summary 


1 The INT(X) function reads back to a whole number. i 
2 To round off X to the nearest whole number use INT(X+-.5). 


3 The INT function can be used to check whether a whole number 
has been entered. 

4 Some versions of BASIC do not give exact results in numerical 
calculations. 





Assignment 
Or 
1 How do you round off to the nearest whole number using the INT 
function? 
2 If you had to look back to answer question 1 go back and read this 
chapter again! 
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46 The RND function 


The RND function is used to choose RaNDoM numbers. There are sev- 
eral kinds of syntax for the RND function, depending on what computer 
you have. For example, on most computers RND (1) will generate a 
random number between @ and 1, but some computers only recognise 
RND (9). 
The following program keeps PRINTing numbers between 9 and 1. 
If it does not work on your computer, try using RND(§) in place of 
RND(1). 
1@ N = RND(1) 
2@ PRINT N 
3@ GOTO 18 
This program will never produce # or 1, merely numbers between 
Pand 1. 
If you want to choose a number between # and 199, multiply the 
random number by 199, like this: 


1@ N = RND(1) * 100 

2@ PRINT N 

3@ GOTO 10 

A few computers allow you to use the following syntax: 


1@ N = RND(10@) 
2@ PRINT N 
3@ GOTO 18 


The quickest way to find out which way your computer uses the RND 
function is to consult your user’s manual, although you may prefer to 
fiddle around until you eventually find out for yourself. 

If you wish to choose random numbers between 2and 5fyou simply 
write the program as though you were choosing random numbers be- 
tween 9 and 39, then add 29, like this: 

1@ REM THIS PROGRAM FINDS RANDOM 

2@ REM NUMBERS BETWEEN 2@ AND 50 

3@ N = RND(1) * 30 + 26 
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40 PRINT N 
58 GOTO 30 


If you wanted to choose numbers between 1 and 19 you would do 
it like this: 


N = RND(L) * 9 +1 


RND(1) * 9 chooses random numbers between 9 and 9. To select ran- 
dom numbers between 1 and 19 simply add 1. 


Whole numbers c 


If you want only whole numbers between 1 and 1 use the INT function 
to round off the numbers: 


1@ REM THIS PROGRAM FINDS RANDOM 
2@ REM NUMBERS BETWEEN 1 AND 10. 
30 N = INT(RND(1) * 9) + 1 

46 PRINT N 

58 GOTO 30 


But this program will never choose 19. If you wanted to get numbers 
between 1 and 19 inclusive you would need to change line 39 to read: 


3@ N = INT(RND(1) * 16) + 1 


If you wanted to choose numbers between 9 and N, not including 
N, you could use the following: 


INT(RND(1) * N) 


If you want numbers between 1 and N, including N, use the 
following: 


INT(RND(1) _* N) + 1 
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Applying the RND function . 


The RND function is used almost exclusively in games and simulations, 
such as in a number guessing game or a dice game. The following pro- 
gram simulates the rolling of a die: 


18 
26 
30 
40 
58 
66 
78 
8@ 
90 


PRINT “HOW MANY TIMES DO YOU WISH" 
INPUT “TO SIMULATE ROLLING THE DIE";T 
PRINT 

FOR I = 1T0T 

D1 = INT(RND(1) * 6) + 1 

N(D1L) = N(D1) + 1 

NEXT I 

PRINT “NUMBER"; TAB(10); “FREQUENCY” 
PRINT 


16@ FOR J = 1 T0 6 
11@ PRINT TAB(1);J; TAB(13);N(J) 
12@ NEXT J 


Here is a sample RUN: 
NUMBER FREQUENCY 


oon WN & 


79 
95 
78 
85 
65 
98 


According to the laws of probability, each number has an equal chance 
of coming up at each roll, ie one sixth. If you are mathematically minded 
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you will quickly realise that the number of times a number will come 
up in X throws is X + 6. 

This program simulated the rolling of a single die. What about a pair 
of dice? Here is the program: 

10 PRINT “HOW MANY TIMES DO YOU WISH" 

26 INPUT “TO SIMULATE ROLLING THE DICE";T 

30 DIM N(12) : PRINT 

4@ FOR I = 1T0 T 

5@ D1 = INT(RND(1) * 6) + 1 

51 D2 = INT(RND(1) * 6) + 1 


ee 
55 S = Dl + D2 
6@ N(S) = N(S) + 1 
70 NEXT I 
8@ PRINT "NUMBER"; TAB(1@); "FREQUENCY" 
9@ PRINT ‘ 
10@ FOR J = 2 T0 12 
11@ PRINT TAB(1);J;TAB(13);N(J) 
12@ NEXT J 
Sample RUN: 
NUMBER FREQUENCY 
2 16 
3 ‘31 
4 45 
5 51 
6 66 
7 74 
8 68 
9 66 
18 43 . 
11 28 
12 26 
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Again, for the mathematically minded, the most probable outcome will 
be a score of 7 with a probability of one sixth. 

Even if you are not hooked on the theory of probability you may 
find it interesting to note the score distribution pattern. If you roll the 
dice X number of times then the theoretical probabilities and frequen- 
cies of a score from 2. to 12 are as follows: __ 


Score Probability Frequency 
2 1/36 1/36*X 
3 2/36 2/36*X 
4 3/36 3/36*X 
5 4/36 4/36*X 
6 5/36 5/36*X 
7 6/36 6/36*X 
8 5/36 -5/36*X 
9 4/36 4/36*X 
10 3/36 3/36*X 
11 2/36 2/36*X 
12 1/36 1/36*X 


This might look a bit technical, but what it means is that if you roll 
the dice 599 times the frequency of a score of 7 should be 1/6*599, 
which is 83%. 

Your computer may give you the same random numbers every time 
you run a program. If so, your computer has a random number generator 
which must be ‘seeded’ with a number that determines the pattern of 
the random numbers to be generated. RUN the following program a 
couple of times to make sure your computer does produce the same 
numbers each time: 


1@ FOR L = 1 TO 10 

20 A = INT(RND(1) * 18) + 1 
30 PRINT A 

4@ NEXT L 


Different computers seed the random number generator with differ- 
entsyntax and conditions. Ifyour computer produces the same numbers 
every time the previous program is RUN, try adding one of these lines 
to see which one works: 


5 RANDOM 
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5 RANDOMIZE 


5 RANDOMIZE (N) 


The number N represents a number which on my machine can range 
from — 32767 to +32767 but this may vary on your machine. If none 
of these works consult your user’s manual. 


Telling 


fortunes 


Let's write a little program that acts as a fortune teller. The questions 
must be of the type that can be answered with a simple yes or no. 
Although a fairly trivial program, it gives the impression (at least to 
a first-time computer user) that it is actually talking back to the user—a 
great ice-breaker when friends come to visit! Here is the program: 


16 
20 
30 
48 
58 
68 
78 
80 
96 
108 
1198 
126 
130 
148 
15@ 
16@ 
176 
180 
198 
268 
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REM 
REM --- READ DATA IN ARRAYS --- 

REM 

FOR I = 1 TO 10 

READ A$(I) 
NEXT I 

REM 
REM --- PRINT HELLO MESSAGE --- 

REM 

PRINT "MY NAME IS MICRO" 

PRINT "THE FORTUNE TELLER" : PRINT 
PRINT "ASK ME ANY QUESTION THAT CAN" 
PRINT "BR ANSWERED WITH YES OR NO" 
REM 

REM --- ASK THE QUESTION --- 

REM 

PRINT : INPUT “YOUR QUESTION "; A$ 
REM 

REM --- CHOOSE RANDOM NUMBER --- 
REM 


21@ N = INT(RND(1) * 16) + 1 

22@ REM e 

23@ REM --- PRINT THE ANSWER --- 

240 REM 

25@ PRINT : PRINT A$(N) 

268 GOTO 170 

27@ REM : 

280 REM --- THE 1@ POSSIBLE ANSWERS --- 

29@ REM 

300 DATA YES DEFINITELY,MAYBE,I DON’T REALLY 

THINK SO,POSSIBLY AFTER A LONG TIME 

31@ DATA I DON’T REALLY KNOW,NO WAY!,IT COULD 
EVENTUATE, HIGHLY IMPROBABLE 

32@ DATA I WOULD RATHER NOT SAY,NOT VERY 

LIKELY 


A typical sample RUN: 


MY NAME IS MICRO 
THE FORTUNE TELLER 


ASK ME ANY QUESTION THAT CAN 
BE ANSWERED WITH YES OR NO 


YOUR QUESTION 7? WILL I BECOME WEALTHY ? 
POSSIBLY AFTER A LONG TIME 

YOUR QUESTION ? WILL I ALSO BECOME FAMOUS ? 
I DON’T REALLY THINK SO 

YOUR QUESTION ? WILL I GET MARRIED 


IT COULD EVENTUATE 
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Artificial intelligence 


When a program appears to be talking back to the user or exhibiting 
some kind of intelligence, this is called Artificial Intelligence. The field 
of Artificial Intelligence is one of the most researched, yet least- 
developed facets of computer science. Getting a computer to act as 
closely as possible to human behaviour presents a challenge to a large 
number of scientists throughout the world. 

The most popular commercially available program to demonstrate 
Artificial Intelligence was ELIZA, sometimes known as DOCTOR and 
originally written in a language called LISP by Dr J Weizenbaum of 
the Massachusetts Institute of Technology. ELIZA simulated a pSycho- 
therapist who simply rephrases the patient’s sentences. ELIZA has since 
been converted to BASIC (in a simplified version). If you ever get a 
chance to use ELIZA, be sure to do so, as it is a fascinating program. 


Summary 
1 RND (1) chooses a random number between § and 1. 


2 TheRND function is used almost exclusively in games and simu- 
lation. 


3 To get larger random numbers multiply the RND function by 
a larger number. 

4 Most random number generators must be ‘seeded’ with an 
instruction such as RANDOM or RANDOMIZE. 

5 Artificial Intelligence is the field of computer science concerned 
with simulating human behaviour. 





Assignment 


Write a game in which you have to guess a number the computer ran- 
domly chooses between 1 and 19%. If a guess is too high or too low 
the message ‘TOO HIGH’ or ‘TOO LOW should be displayed. When 
the number is guessed the program should tell you how many guesses 
it took. 


96 


47 The ON GOTO and ON GOSUB /RETURN 
statements 


The ON GOTO statement 


ON GOTO statements can be used to write more efficient programs. 
Take, for example, the following program: 


100 
118 
120 
138 
146 
158 
168 
178 
188 
198 
200 
218 
228 
238 
248 
258 


A = INT(RND(1) * 6) + 1 


IF A = 1 THEN 200 

IF A = 2 THEN 210 

IF A = 3 THEN 220 

IF A = 4 THEN 230 

IF A = 5 THEN 248 

IF A = 6 THEN 25@ 

REM 

REM --- WISE PROVERBS --- 
REM 


PRINT “AN APPLE A DAY" : GOTO 100 

PRINT "GATHERS NO MOSS" ; GOTO 1086 

PRINT "SPOILS THE BROTH" : GOTO 100 
PRINT “A ROLLING STONE": GOTO 100 

PRINT “KEEPS THE DOCTOR AWAY" :; GOTO 108 
PRINT “TOO MANY COOKS" : GOTO 100 


The six IF-THEN statements can be replaced with one ON GOTO 
statement as follows: 


106 
110 
178 
1860 
190 
200 
218 


A = INT(RND(1) * 6) + 1 

ON A GOTO 200,210,220, 230,248, 250 
REM 

REM --- WISE PROVERBS --- 

REM 

PRINT “AN APPLE A DAY” : GOTO 1680 
PRINT “GATHERS NO MOSS" : GOTO 108 
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226 PRINT "SPOILS THE BROTH" : GOTO 160 

23@ PRINT "A ROLLING STONE": GOTO 160 

24@ PRINT "KEEPS THE DOCTOR AWAY" : GOTO 10@ 
25@ PRINT “TOO MANY COOKS" : GOTO 168 


The ON GOTO statement tells the computer to jump to a random line 
number following the ON GOTO. Forexample, whenA = 3 the program 
will jump to the third line number specified, which in this program is 
line 229. If A is less than 1, or if Ais greater than the number of lines 
specified, the program will skip the ON GOTO statement and continue 
with the next line. The following program will help you to understand 
the ON GOTO statement. 


10@ INPUT "ENTER A NUMBER BETWEEN 1 AND 5";N 
11@ PRINT 

12@ ON N GOTO 150,160,170,188,198 

13@ PRINT “THAT’S NOT BETWEEN 1 AND 5" ; 

146 PRINT "NOW..."; : GOTO 100 

15@ PRINT "THIS IS LINE 156" : GOTO 108 

16@ PRINT "THIS IS LINE 160" : GOTO 160 

170 PRINT "THIS IS LINE 178" : GOTO 100 

18@ PRINT "THIS IS LINE 186" : GOTO 106 

19@ PRINT "THIS IS LINE 190" : GOTO 100 


The ON GOSUB/RETURN. statement 


ON GOSUB/ RETURN statements can be used in the same way. The 
following program is the same as the one above but has been slightly 
modified to use ON GOSUB/RETURN statements: 


10@ INPUT “ENTER A NUMBER BETWEEN 1 AND 5";N 
11@ PRINT 

12@ ON N GOSUB 150,160,178, 188,198 

125 IF N > @ AND N < 6 THEN 100 

13@ PRINT “THAT’S NOT BETWEEN 1 AND 5” 

14@ PRINT "NOW..."; : GOTO 108 

15@ PRINT “THIS IS LINE 150" : RETURN 
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160 PRINT "THIS IS LINE 166" :; RETURN 
17@ PRINT “THIS IS LINE 170" : RETURN 
18@ PRINT “THIS IS LINE 180" ; RETURN 
19@ PRINT "THIS IS LINE 190" : RETURN 


On some computers, if the number chosen is less than 1, it may cause 
an error instead of simply being ignored. To stop an error occurring 
simply use an IF~THEN statement to ensure that the number is greater 
than #. 

ON GOTO/GOSUB statements are especially useful if a branch is 
to be made to another part of the program in response to a user’s input. 


A menu presents a selection of options to the user. Say, for example, 
we have a telephone directory program that allows names, addresses 
and telephone numbers to be entered via the keyboard. The user then 
has the options of printing the directory, adding to the directory, search- 
ing for a record, changing an existing record, deleting an existing record 
and sorting the directory into alphabetical order. There is such a pro- 
gram listed in Appendix 2 (see Helper). 
The menu for these options might look like this: 


MAIN MENU 231 RECORDS IN FILE 
1 - PRINT FILE 

2 - ADD TO FILE 

3 - SORT FILE 

4 - DELETE A RECORD 

5 — SEARCH FOR A RECORD 

6 - MODIFY A RECORD 

7 - EXIT FROM PROGRAM 


WHICH ? 


To choose an option you would simply type in the number of that option 
and press <RETURN >. Without the ON GOTO statement the input 
and branch routine of this program might look like this: ) 
700 INPUT “WHICH ";W 
71@ IF W< 1 OR W > 7 THEN 768 


726 IF W = 1 THEN 1000 

730 IF W = 2 THEN 2000 

740 IF W = 3 THEN 3000 

750 IF W = 4 THEN 4008 

760 IF W = 5 THEN 5000 
Ww 6 


770 #XIF THEN 6606 

780 IF W = 7 THEN 7000 
Perfectly functional but time-consuming, and a waste of memory. In- 
stead it could be written like this: 

700 INPUT "WHICH ";W 

716 IF W < 1 OR W > 7 THEN 700 

728 ON W GOTO 1006, 2008, 3008, 4000, 5000, 6000,7 

000 


As you can see, this is far simpler, easier and more efficient. You should 
get into the habit of writing efficient programs right from the start. It 
will be easier than trying to change your programming style later on. 


Summary 


1 The ON GOTO and ON GOSUB statements simplify program- 


ming by replacing multiple IF—THEN statements. 
2 These statements are especially useful when an option is to be 
selected by number from a menu. 
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Assignment 


Write a menu program that allows the same options as the menu used 
before, but instead of typing in a number to select an option, modify 
it so options can be selected by their first letter. You may have to change 
the name of one of the options as there are two that start with the same 
letter. When an option is selected, have the program branch to a dummy 
(fake) subroutine. 

For example, if you selected the PRINT FILE option the program 
would branch to a routine that PRINTs “YOU SELECTED THE ‘PRINT 
FILE’ OPTION” and so on. The only catch is that you must use the 
ON GOTO statement—no IF-—THENs allowed. 

Warning: This is a fairly difficult exercise so don’t worry if you have 
trouble doing it—just have fun trying! 
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Appendix 4 


Quiz and assignment solutions 


Chapter 2 


1 So that the computer knows in what order it is to execute the instruc- 
tions. In BASIC, program lines are executed sequentially from lowest 
to highest. 

2 Type NEW. 


Chapter 3 


1 (a) The line is put in the computer’s memory. 
(b) The line is executed and not stored in memory. 
2 Type the line number with no further instruction. 


Chapter 4 


1 (a) * 
(b) / 
2 On most computers omission of the END statement has no effect. 


Chapter 5 


18 LET A$ = "MICRO" « 
20 LET B$ = "COMPUTER" 

3@ LET C$ = A$ + B$ 

49 PRINT “THE WORD *";A$;"°" 

5@ PRINT "PLUS THE WORD ’";B$;"°" 

6@ PRINT "COMBINE TO GIVE US ..." 

76 PRINT "’";c$;"?" 


Chapter 6 


1@ INPUT “ENTER YOUR NAME THEN PRESS <RETURN> 
"ONS 
’ 
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20 
3A 
38 
46 
58 
68 


78 
on 


INPUT 


T 
Y 
PRINT 
PRINT 
PRINT 


Chapter 8 


18 
20 
38 
40 
58 
60 
70 


INPUT 
INPUT 
INPUT 
PRINT 
Ss = S& 


"ENTER YOUR AGE THEN PRESS <RETURN>" 


106 - A 
1985 + T 


+ 


“DID YOU KNOW,";N$;", THAT BY THE" 
"YEAR"; Y;"YOU WILL BE 18@ YEARS OLD 


“START AT WHAT NUMBER ";S 
"END AT WHAT NUMBER ";E 
“COUNT IN WHAT STEP ";I 

Ss 

+ I 


IF S > E THEN END 
GOTO 48 


Chapter 10 


Here is a program that allows several families to be entered. You can 
then look at a given member of a family or the whole family at once. 


10 
26 
38 
40 
58 
66 
70 
8@ 
98 


INPUT 
INPUT 
PRINT 


“HOW MANY FAMILIES “;F 
"HOW MANY MEMBERS IN EACH FAMILY ";M 


DIM A$(F,M) 


FOR X 
PRINT 
PRINT 
PRINT 
FOR Y 


= 1 TO F 


"FAMILY"; X 


= 1 TOM 


100 PRINT “ENTER MEMBER"; Y; 
11@ INPUT A$(X,Y) 
12@ NEXT Y 
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130 NEXT X 
14@ PRINT 
15@ PRINT 
166 INPUT “EXAMINE FAMILY NUMBER";N / 
176 IF N < 1 OR N D> F THEN 168 
18@ PRINT 
19@ INPUT “WHICH MEMBER (TO LIST WHOLE FAMILY 
TYPE @®) ";P 
200 IF P < @ OR P > M THEN 1986 
2180 PRINT 
22@ PRINT o 
230 IF P = ®@ THEN Z=M-1 
240 IF P = @ THEN P = l 
250 PRINT "FAMILY";N 
266 PRINT 
27@ FOR K = P TOP + Z ; 
286 PRINT "MEMBER";K;" ; "3; A$(N,K) 
29@ NEXT K 
388 GOTO 140 
Chapter 12 


This slightly-modified version of the database program in Chapter 12 
allows additional names to be entered and searched for. 


18 
20 
30 
46 
56 
60 
78 
88 
98 
91 
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REM *. 
REM *xkx READ DATA INTO ARRAYS *** 
REM 

N= 5 

DIM N$(50),A$(5@),T(5@) 


FOR I = 1 TON 

READ N$(T),A$(I),T(TI) 

NEXT I 

REM 

REM %*** SELECT OPTION *%* 


92 REM 

10@ PRINT : PRINT “ENTER ’A’ TO ADD MORE 
NAMES" 7 

110 INPUT "OR PRESS <RETURN> TO SEARCH ";Q$ 
120 IF Q$ = "A" THEN 470 

13@ REM 

140 REM %*x* ENTER NAME TO FIND ¥%* 


160 PRINT : INPUT "ENTER NAME TO SEARCH FOR " 


198 REM *** SEARCH FOR NAME **x 

20@ REM 

21@ FOR J = 1TON 

220 IF N$(J) = N$ THEN LET P = J 

23@ NEXT J 

246 REM 

25@ REM ***& NAME NOT FOUND *** 

26@ REM 

27@ IF P = @ THEN PRINT : PRINT "RECORD NOT 
FOUND" : GOTO 160 


28@ REM 

29@ REM xXx NAME FOUND *** 

300 REM 

31@ PRINT : PRINT “RECORD FOUND" : PRINT 
326 PRINT "NAME : “SN$(P) 


330 PRINT "ADDRESS : “;A$(P) 
348 PRINT “TELEPHONE : ";T(P) 

35@ GOTO 168 

36@ REM 

376 REM *k** NAMES IN THE FILE **x 
38@ REM 

398 DATA SHELL,HEARTBEAT CITY,181081 
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46@ DATA ELBOW,DUNG TOWN, 238973 

418 DATA MUCHO MAN,GRAND HORSEY, 873429 
42@ DATA THE FONZ,THE GARAGE, 237747 

430 DATA SLUGGO,CANNABA CITY,678437 : 
440 REM 

45@ REM *&* ADD NAMES ¥*x** 

460 REM 

47@ PRINT 

486 N=N+1 

496 INPUT "ENTER NAME : "3N$(N) 

56@ INPUT "ENTER ADDRESS > "3 A$(N) s 
510 INPUT “ENTER TELEPHONE : ";T(N) 

52@ PRINT 

53@ INPUT “ENTER MORE NAMES (Y OR N) “;Q$ 
R40 IF Q$ = "Y" THEN 478 

550 PRINT ‘ 
568 GOTO 1686 


This program allows records to be searched for by telephone numbers 
and is almost identical to the original database program. The only lines 
that have been changed are lines 19 and 169 (as well as the comments 
in the REM statements). 


1@ REM : 

2@ REM **k READ DATA INTO ARRAYS **x 

30 REM * 
40 FOR I = 1 TO 5 

5@ READ N$(I),A$(1I),T(I) 

6@ NEXT I 

76 REM 

86 REM *** ENTER TEL NO. TO FIND *** 

9@ REM 

166 PRINT : INPUT “ENTER NUMBER TO SEARCH FOR 
"7 

11@ P = 6 


106 


128 


REM 


13@ REM %***' SEARCH FOR NUMBER *%% 

14@ REM “ 

15@ FOR J = 1 T0 5 

16@ IF (J) = T THEN LET P = J 

170 NEXT J 

180 REM 

199 REM %** NUMBER NOT FOUND *** 

208 REM ; 

21@ IF P = @ THEN PRINT : PRINT "RECORD NOT 

FOUND" ; GOTO 100 

220 REM 

238 REM *xk NUMBER FOUND *%% 

240 REM 

25@ PRINT : PRINT "RECORD FOUND" : 

260 PRINT "NAME : "3N$(P) 

278 PRINT “ADDRESS : “;A$(P) 

28@ PRINT "TELEPHONE : ";T(P) 

298 GOTO 180 

308 REM 

31@ REM *** NAMES IN THE FILE **x 

32@ REM 

33@ DATA SHELL,HEARTBRAT CITY, 181081 

34@ DATA ELBOW, DUNG TOWN, 238973 

350 DATA MUCHO MAN,GRAND HORSEY, 873429 

360 DATA THE FONZ,THE GARAGE, 237747 

378 DATA SLUGGO,CANNABA CITY,678437 
Chapter 13 

10 T= @0 

20 INPUT “HOW MANY NUMBERS ";N 

30 DIM A(N) 

4@ PRINT 
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5@ FOR I = 1 TON 

6@ PRINT “ENTER NUMBER";T; 

78 INPUT A(I) 

88 NEXT I 
98 PRINT 

106 FOR J = 1TON 

11@ PRINT USING “######.##";A(J) 

120 T = T + ACS) 


130 NEXT J 
14@ PRINT "~--~------- tt 
15@ PRINT USING "######.##";T es 
160 PRINT "--~----—---- " 
Chapter 14 


Here is the modified word game for two players. After five guesses each 
a winner is announced. If you want to have more than five goes each 
simply change line 65 accordingly. 


16 INPUT “NAME OF PLAYER 1 ";P$(1) 
2@ INPUT "NAME OF PLAYER 2 ";P$(2) 


3@ S(1) = @ 
-48 S(2) = 6 
5@ P = 1 
66 Cc = 6 


7@ PRINT : PRINT “ENTER A WORD, ";P$(P); % 
88 INPUT W$ 

98 V = 6 

166 L = LEN(W$) 

11@ FOR I = 1 TO L 

120 L$ = MID$(W$,1,1) 

13@ A = ASC(L$) 

148 V=V+A 

15@ NEXT I 

16@ S(P) = S(P).+ V 


108 


17® PRINT : PRINT “THE VALUE OF THAT WORD IS 
2"3V 

186 P=P+i1 

196 IF P = 3 THEN P = 1 

200 PRINT : PRINT "THE SCORES ARE : " 

21@ PRINT : PRINT P$(1);" =";S(1) 

22@ PRINT P$(2);" =";S(2) 

23@ c =C+r+il 

240 IF C < 1@ THEN 7@ 

25@ PRINT : PRINT "AND THE WINNER IS... "; 
268 IF S(1) > S(2) THEN A$ = P$(1) 

270 IF S(2) > S(1) THEN A$ P$(2) 

288 IF S(1) $(2) THEN A$ "NO-ONE - IT’S A 
DRAW!" 

298 PRINT A$ 

308 PRINT : INPUT “ANOTHER GAME (Y OR N) “;Q$ 
31@ IF Q$ = "Y" THEN 30 

320 PRINT : PRINT “NICE PLAYING WITH YOU" 


Chapter 15 


To round off a number to the nearest whole number, you simply add 
5 before taking the INTeger of it. 


Chapter 16 


This is the ‘guess anumber program. Ifyou want the computer to choose 
anumber up to a higher number than 19 simply change line 10 accord- 
ingly. You may like to add another IF-THEN statement to check if the 
person’s guess is within the limit 1 to N. 


1@ N = 160 

2@ PRINT “IN THIS GAME YOU HAVE TO TRY" 

3@ PRINT "AND GUESS THE NUMBER I AM THINKING" 
4@ PRINT “BETWEEN 1 AND";N 

5@ T = 8 
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6@ R = INT(RND(1) * N) +1 

70 PRINT : PRINT "O.K, I HAVE CHOSEN MY 
NUMBER " 

8@ PRINT 

99 INPUT “WHAT IS YOUR GUESS";G 

100 T=T +1 

11@ IF G < R THEN 198 

120 IF G > R THEN 218 

13@ PRINT: PRINT "GOOD GUESS !" 

148 PRINT "IT TOOK YOU";T; "TRIES" 

150 PRINT : INPUT "ANOTHER GAME (Y OR Np ";0Q$ 
160 IF Q$ = "Y" THEN 50 

17@ PRINT : PRINT "NICE PLAYING WITH YOU" 

18@ END 

198 PRINT : PRINT "TOO LOW -— TRY AGAIN" 

208 GOTO 88 

210 PRINT : PRINT "TOO HIGH - TRY AGAIN". 


Chapter 17 


This is the modified menu program that allows options to be selected 
with a letter as opposed to a number. You could even modify this routine 
slightly and use it in your own programs. 


1@ FOR I = 1707 

20 READ S$(1) % 
3@ NEXT I 

4@ PRINT 

5@ PRINT “MAIN MENU"; TAB(2@);N;"RECORDS IN 
FILE" 

60 PRINT 

786 PRINT "P) RINT FILE". 

8@ PRINT "A) DD TO FILE" 

9@ PRINT "S) ORT FILE" 

10@ PRINT "D) ELETE A RECORD" 
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118 
128 
130 
140 
158 
160 
176 
180 
198 
200 
210 
76000 
1008 
16018 
2000 
2610 
3006 
3019 
4600 
4016 
5806 
5618 
6800 
6818 
7000 
7018 
8600 


PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
FOR J 
IF W$ 
NEXT J 
IF W = 


"L) OOK FOR A RECORD" 
"M) ODIFY A RECORD" 
"E) XIT FROM PROGRAM" 
“WHICH ";W$ 


= 1707 
= 8$(J) THEN W = J 


@ THEN 158 


ON W GOTO 10060, 2008, 3000 , 4008 , 5000, 60080, 


PRINT 
GOTO 
PRINT 
GOTO 
PRINT 
GoTo 
PRINT 
-GOTO 
PRINT 
GoTo 
PRINT 
GOTO 
PRINT 
PRINT 


"PRINT FILE" 
7008 

"ADD TO FILE" 
7060 

"SORT FILE" 
7000 

“DELETE A RECORD" 
7666 


"LOOK FOR A RECORD" 
7000 

"MODIFY A RECORD" 
7068 


"END OF PROGRAM" 


DATA P,A,S,D,L,M,£ 
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Appendix 2 
Some interesting programs 


All these programs are written in standard Microsoft BASIC, and should 
RUN without much modification on most computers. The programs 
are ‘bare bones’ programs and I am sure you will have great fun dressing 
them up by adding sound, colour and graphics, depending on your com- 
puter’s capabilities. Along with each program I have provided some 
comments and suggestions of how to customise the programs. If your 
computer requires you to seed the random number generator so that 
it doesn’t produce the same sequence of random numbers then be sure 
to insert this into the programs that use the RND function. 

As you can see I have made extensive use of REM statements to help 
outline the major subroutines. However, no direct jumps are ever made 
to a REM line, so if your computer has limited memory, or you just 
can’t be bothered typing them in, you can leave out the REMs. The 
program will still RUN correctly, and can use up to 59 per cent less 
memory. 


Word 


This program is a word guessing game that chooses a random word 
from its vocabulary and then asks for your guess. 

You guess a letter at a time or, if you think you know the word before 
you have guessed all the letters, you can attempt to guess the wifle 
word. If you incorrectly guess the word more than twice a warning mess- 
age is printed and if you keep on guessing at the word the program 
will tell you you are cheating and will then choose a new word. 

You can get a list of the letters you have incorrectly guessed so far 
by simply pressing <RETURN>. When you guess the word you will 
be told how many guesses it took you. 


Comments and suggested enhancements 


The first thing you will probably want to do is expand the program’s 
vocabulary. All that you must do is add the new words to the DATA 
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statements in lines 19600-10949 and adjust the variable N in line 
349 accordingly. : 

If you wanted to enhance the program further you could add sound 
routines to indicate a correct or incorrect guess and then have a tune 
sound when a word is guessed. If you have a colour display you can 
add colour and even graphics to brighten up the program further. 


Cross reference: 


346 initialises the variable N to 19and DIMensions WS for N locations. 
386 READs the words onto the array WS(N). 

426—436 choose a word at random. 

486 clears the screen. 

496 DIMensions G$ for L locations. This is so that each letter of the 
word can be placed in each location of G$. B$ is DIMensioned to allow 
for each letter of the alphabet as well as a space character. 

596 loads each location of G$ with a period symbol (.). 

519-529 PRINTs the word. 

1956 checks to see if <RETURN> has been pressed without any 
INPUT. If yes, then a branch is executed to the appropriate routine. 
1969 checks to see if more than one letter was entered. If yes, then 
a branch is ‘executed to the appropriate routine. 

2636—2996 checks to see if the correct letter has been guessed. Each 
letter of the word is compared to the guessed letter. If the letters are 
the same it checks to see if that letter has already been guessed. If it 
has, a branch is executed to the appropriate routine, otherwise the letter 
is put in the variable G$(M) and the variable F is set to 1. Line 20890 
adds each letter guessed and stores it in DS. 

3636 checks to see if the word has been guessed yet. If yes, then a branch 
is executed to the appropriate routine. 

4936-49896 PRINTs the letter of the word guessed so far. Unguessed 
letters are represented by a period symbol (.). 

5636-5696 checks if the word has been correctly guessed. If there have 
been more than four incorrect guesses, then a new word is chosen. 
6936—6166 PRINTs the incorrect letters guessed. 

7636-7656 records the incorrect letter and PRINTs a message. 
8939—8686 The word has been guessed. Number of guesses is PRINTed 
and you are asked if you want to play again. 
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993 The letter has already been guessed. The appropriate message 
is PRINTed. 


19936 DATA statements containing the words. 


160 
126 
130 
146 
156 
166 
178 
186 
198 
206 
210 
220 
236 
246 
258 
268 
278 
288 
290 
300 
318 
320 
330 
340 
356 
360 
378 
388 
398 
400 


414 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


PROGRAM NAME : WORD 

DATE : 11/61/85 
MEMORY USAGE : 3011 BYTES 
WITHOUT REMS : 1751 BYTES 


DEFINITION OF VARIABLES 


I,J,K,M...LOOP COUNTERS 
N.....---+NUMBER OF WORDS 
W$(X).....ARRAY OF WORDS 

We wwcscces RANDOM WORD NUMBER 
L........+LENGTH OF WORD 
G$(X)..... LETTERS OF WORD 
B$(X).....INCORRECT LETTERS 
L$........-USERS GUESS 
D$........TEMPORARY WORD 
A,Q,C..... COUNTERS 


N CAN BE CHANGED IF MORE DATA 
IS ADDED IN LINES 10030-10040 


N=16:DIM WS$(N) 


REM 
REM 
REM 
FOR 
REM 
REM 


READ WORDS INTO ARRAY 


I=] TO N: READ W$(I):NEXT I 


CHOOSE A WORD 


418 


42@ W=INT(RND(1)¥*N).+1 


438 
446 
450 
4680 
478 
486 
490 
500 
510 
528 
1060 
1010 
1028 
1038 
1648 
10586 
1666 
2006 
2610 
2620 
2030 
2640 
2050 
2068 
GOTO 
2676 
2888 
2896 
3088 
3818 
3620 
3030 


A$=W$(W): L=LEN(A$) 
REM 
REM DIMENSION AND INITIALISE 

REM VARIABLES THEN DISPLAY MESSAGE 
REM : 
CLS 
DIM G$(L),B$(26) 

FOR J=1 TO L:G$(J)=".":NEXT J 

PRINT "THE WORD HAS ";L;" LETTERS : "; 
FOR K=1 TO L: PRINT G$(K);:NEXT K 

REM 

REM PROMPT FOR A LETTER 

REM 

PRINT: PRINT 

INPUT "GUESS A LETTER “;L$ 


IF L$="" THEN GOSUB 6030:GOTO 1038 

EF LEN(L$)<>1 THEN GOSUB 583@:GOTO 1836 
REM 

REM CHECK FOR THAT LETTER 

REM 

F=6:D$="" 


FOR M=1 TO L 

S$=MID$(A$,M,1) 

IF L$=S$ AND G$(M)=L$ THEN GOSUB 9030: 
1630 

IF L$=S$ THEN G$(M)=L$: F=1 

D$=D$+G$(M) 

NEXT M 

REM 


REM HAS THE WORD BEEN GUESSED YET 
REM 
IF D$=A$ THEN 8838 
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3048 REM 

3050 REM IF F=@ LETTER NOT IN THE WORD 

3068 REM 

3078 IF F=@ THEN GOSUB 7038:GOTO 4030 

3080 REM 

3098 REM LETTER IS IN WORD 

310@ REM 

3118 PRINT: PRINT"GOOD GUESS !!" 

4900 REM 

401@ REM DISPLAY WORD SO FAR 

4020 REM 0 
4030 PRINT: PRINT "HERE IS THE WORD SO FAR: " 
; 

404@ FOR I=1 TO L 

4050 PRINT G$(I); 

4068 NEXT I 
407@ PRINT: PRINT 

408@ GOTO 1048 

5008 REM 

5@1@ REM A GUESS FOR THE WORD 

502@ REM 

5030 IF L$=A$ THEN GOSUB 803@: RETURN 

5048 A=A+1 

5050 PRINT: PRINT "THAT WAS AN INCORRECT GUESS 
* 

5068 IF A<4 THEN 5070 

5065 PRINT "YOU ARE ARE NOT ALLOWED SO MANY 
GUESSES" | 

5066 PRINT "BECAUSE YOU ARE CHEATING I HAVE" 


:PRINT "CHOSEN A NEW WORD” 


5067 PRINT: INPUT “PRESS ANY KEY TO CONTINUE " 
»Q$: RUN 
5670 IF A>2 THEN PRINT “STOP GUESSING AND 


START THINKING !!" 
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5@8@ Q=Q+1 
5098 RETURN 
6@0@ REM 
6018 REM DISPLAY LETTERS 
6020 REM 
603@ PRINT: PRINT “INCORRECT LETTERS YOU HAVE 
GUESSED ARE :" 
6040 IF C=@ THEN PRINT: PRINT “NONE -— YOU’RE 
TOO CLEVER FOR ME !":RETURN 
6@5@ PRINT: PRINT 
6060 FOR J=1 TO C 
6@7@ PRINT B$(J);" "; 
60880 NEXT J 
6098 PRINT: PRINT 
610@ RETURN 
7000 REM 
701@ REM INCORRECT LETTER 
7020 REM 
763@ C=C+1 
704@ BS$(C)=L$ 
7@5@ PRINT: PRINT"BAD LUCK ":RETURN 
800@ REM 
8@1@ REM WORD HAS BEEN GUESSED 
8020 REM 
8@3@ PRINT: PRINT "GOOD GUESS!" 
8040 PRINT: PRINT "YOU INCORRECTLY GUESSED THE 
WORD" ;Q; "TIMES" 
8050 PRINT "AND GUESSED";C;"INCORRECT LETTERS 
we 
8060 PRINT: INPUT "DO YOU WANT TO PLAY AGAIN " 
3Q$ 
8070 IF LEFT$(Q$,1)="Y" THEN RUN 
8080 PRINT: PRINT "IT’S BEEN NICE PLAYING WITH 
YoU 
8090 END 
147 


9000 REM 

9010 REM LETTER IS ALREADY IN WORD 

902@ REM 

9030 PRINT :PRINT"IT’S ALREADY THERE ": RETURN 
10008 REM . 
1061@ REM VOCABULARY 

10020 REM 

1003@ DATA EMOTIONAL, DEFIANT, INTELLECTUAL, 
ESTABLISHMENT, XENOPHOBIA 

10048 DATA DISTINGUISHED, RESPONSIBILITY, 
EXTRAORDINARY, PASSAGE, TELEVISION 


Race 


Race is a program that attempts to pick winners at the horse races. 

Although a lighthearted attempt compared to some of the more soph- 
isticated (and costly) programs available, it generally gives excellent 
results. All the data that is needed is the horses’ last three placings 
and their jockey weights. The sum of a horse’s last three places, mullti- 
plied by the jockey’s weight, gives the placing coefficient. The lower 
the coefficient, the higher the horse will be placed. 

Of course, the program cannot take into account track conditions, 
race distance, barrier position or the owner's instructions to the jockey 
as to how the horse is to be ridden. 

Although the program is short and simple, it is surprisingly accurate. 
How do you think I bought my computer? 


Comments and suggested enhancements 


As the program stands, it only gives predictions for the first three 
placings (after all, they are the only ones you can bet on). If you wanted 
to see more placings, or even a ranking of the whole field, you could 
change lines 8939 and 9989 accordingly. If your computer has sound 
you could add a tune before the results are printed. If you are really 
keen, instead of simply giving a rating in the race summary you could 
have a graphical picture representing each horse. 
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Cross reference 


1926-1946 clears the screen and asks how many horses are running. 
2636—2646 DiMension variables and READ place suffixes. 
3949—3686 ask for each horse’s name. If you press <RETURN > with- 
out entering a name the horse will be called by its number. 
4946-4976 get jockey weights. 

5636-5696 get last three placings. If the horse was scratched of fell 
then enter @. 

6936-6986 calculate odds coefficient by adding up last three placings 
and multiplying by weight. A total of all coefficients is also recorded. 


7636-7166 a simple bubble sort of routine that sorts the coefficients 
into numerical order from smallest to largest. 


8936-8956 scales the top three win odds to bet odds (the bet odds 
is the horse’s chance of winning). 


9946-9166 display results. 
16939-19265 PRINT field summary then prompt to do it again. 
119396 suffixes for places. 


100 REM PROGRAM NAME : RACE 

120 REM DATE : 11/01/85 
130. REM MEMORY USAGE : 2621 BYTES 
14@ REM WITHOUT REMS : 1640 BYTES 
15@ REM : 

16@ REM DEFINITION OF VARIABLES 
178 REM . 

180 REM 

190 REM N......... NUMBER OF HORSES 
20@ REM A,B,D,I 

210 REM J,K,L,X...LOOP COUNTERS 
22@ REM H$(N).....HORSES’ NAMES 


230 REM W(N)...... JOCKEY WEIGHTS 
248 REM P(3,N)....LAST 3 PLACES 
25@ REM O(X)...... PLACE ODDS 
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REM D$........DUMMY STRING 
REM T.........COUNTER 
REM C..... ..-CONDITION FLAG 
REM R(X)......BETTING ODDS 
REM 
REM 

REM ENTER NUMBER OF HORSES 

REM 

CLS 

INPUT “HOW MANY HORSES ARE RUNNING ";N 
IF N<3 THEN 1630 

REM 

REM DIMENSION ARRAYS AND READ DATA 
REM 

DIM H$(N),W(N),P(3,N),T(N),O(N),R(N) 
FOR D=1 TO 3:READ A$(D):NEXT ‘ 
REM 

REM ENTER HORSES’ NAMES 

REM 

PRINT 

FOR I=1 TO N 

PRINT “NAME OF HORSE ";1;" "; 

INPUT H$(I) 

IF H$(1I)="" THEN H$(1I)=STR$(I) 

NEXT I 

REM 

REM GET JOCKEY WEIGHTS 

REM 

PRINT 

FOR J=1 TO N 

PRINT “WHAT WEIGHT IS ";H$(J);" CARRYING 


INPUT W(J) 
NEXT J 


5000 REM , 

5018 REM LAST 3 PLACES 

5020 REM , 

503@ PRINT 

504@ FOR K=1 TO N 

5050 PRINT "WHAT ARE ";H$(K);"’S LAST 3 
PLACINGS "; 

5068 FOR B=1 TO 3 

507@ INPUT P(B,K) 

5075 IF P(B,K)=@ THEN P(B,K)=INT(N/2) 
5080 NEXT B 

5090 NEXT K 

600@ REM 

6010 REM CALCULATE ODDS 

682@ REM 

6038 FOR L=1 TO N 

604@ FOR D=1 TO 3 

605@ 0(L)=0(L)+P(D,L) 

6060 NEXT D 

6870 O(L)=0(L)*W(L): T=T+0(L) 
6080 NEXT L 

7000 REM 

701@ REM FIND FIRST 3 PLACES 
7015 REM BY SORTING ODDS 

7020 REM 

7038 C=0 

704@ FOR X=1 TO N-1 

7050 IF 0(X)<=0(X+1) THEN 7090 
7068 D=0(X):0(X)=0(X+1):0(X+1)=D 
7078 D$=H$(X) : H$(X)=H$(X+1):H$(X+1)=D$ 
7088 C=1 

7090 NEXT X 

710@ IF C=l THEN 7030 

8008 REM 
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801@ REM SCALE PLACE ODDS TO WIN ODDS 
8020 REM =—sés* 

8030 FOR B=] TO 3 

8048 R(B)=T/0(B) 

805@ NEXT B 

900@ REM 

9010 REM PRINT EXPECTED RESULTS 

902@ REM 

9038 CLS 

9048 PRINT "PREDICTED RACE RESULTS" 

90580 PRINT: PRINT 

90680 PRINT "PLACE"; TAB(1@); "HORSE"; TAB(3@); 
"WIN ODDS" 

907@ PRINT 

9086 FOR A=1 TO 3 

9098 PRINT A;A$(A);TAB(10);H$(A);TAB(3@);: PRI 
NT USING "“##. ##:1";R(A) 

9100 NEXT 

1000@ REM 

10018 REM FIELD SUMMARY 

10028 REM 

19030 PRINT: INPUT "DO YOU WANT A FIELD 
SUMMARY ";Q$ . 

1904@ IF LEFT$(Q$,1)<>"Y" THEN END 

10@5@ CLS 

10@6@ PRINT"FIELD SUMMARY": PRINT 

10078 PRINT"NAME"; TAB(20); "RATING": PRINT 
16086 FOR I=1 TO N 

10098 A=0(1I)/W(I) 

1010@ IF A<=5 THEN C$="THOROUGHBRED" 

1011@ IF A>5 AND A<=1@ THEN C$="VERY GOOD" 
16120 IF A>1@ AND A<=2@ THEN C$="FAIR" 
10130 IF A>2@ AND A<=25 THEN C$="A DONKEY" 
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10140 IF A>25 AND A<=3@ THEN C$="DOG FOOD" 
1015@ IF A>3@ THEN C$="STILL RUNNING” 
10160 PRINT H$(1); TAB(20);C$ 

10176 NEXT I 

1018@ PRINT 

10196 INPUT “ANOTHER RACE ";Q$ 

102@@ IF LEFT$(Q$,1)="Y" THEN RUN 
10265 PRINT: PRINT "HAPPY PUNTING !" 
16266 END 

11606 REM 

1161@ REM SUFFIXES 

11820 REM 

1163@ DATA ST,ND,RD 


Think 


Think is a program that chooses a word from its vocabulary and then 
allows you to try and make up as many words as you can from that 
word. 

The program will tell you if you enter a word that cannot be derived 
from the’given word or if the word has already been derived. If you 
want to see the words you have derived so far press < RETURN > with- 
out entering a word. The program does not knowwhen you have entered 
a word that doesn’t exist, so it’s up to you not to cheat. 


Comments and suggested enhancements 


This is the type of program you will probably want to customise to your 
own requirements. 

You will no doubt want to expand the program’s vocabulary, which 
can bedone simply by adding more data in lines 8969—89109and adjust- 
ing the value of the variable N in line 379 accordingly. Probably the 
best enhancement would be to modify the program so that it knows 
every possible word that can be derived from one of its words. This 
will prevent cheating! Again sound, colour and graphics will improve 
the program further. Use your imagination. 
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Cross reference. 


376 initialises N to 18 and DiMensions WS(N). 

416-43 READs words into W$(N). 

47$—49§6 chooses random word. . 

535-566 put each letter of word into L$(L), then PRINT the word. 
1666-1916 ask for a derived word. 

1926 checks to see if the derived word is the actual word. If yes, then 
a branch is executed to the appropriate routine. 

1936 checks to see if <RETURN > was pressed without any INPUT. 
If yes, then a branch is executed to the corresponding routine. 

2666 —2676 checks to make sure that every letter of the derived word. 
is in the word. If yes, then X=1, otherwise X=@. 

3696 branches according to the value of X. 

3919 branches back and asks for next derived word. . 
4666—4946 check to see if word has already been derived. If yes, then 
a branch is executed to the appropriate routine. 

4976-4166 record the correctly derived word and PRINT the appropri- 
ate message. 

7$66—7686 PRINT the word already derived. 

8666-8916 vocabulary. 


106 REM PROGRAM NAME : THINK 


12@ REM DATE  t 24/61/85 
13@ REM MEMORY USAGE : 2231 BYTES 
14@ REM WITHOUT REMS : 1086 BYTES 
15@ REM 

160 REM DEFINITION OF VARIABLES 
17@ REM 


18@ REM N.........NUMBER OF WORDS 
198 REM W$(N).....ACTUAL WORDS 


260 REM W........ -RANDON SUBSCRIPT 
21@ REM A$........ CHOSEN WORD = W$(W) 
22@ REM L........-LENGTH OF A$ 

23@ REM G$....... -DERIVED WORD 


240 REM L$(L).....LETTERS OF A$ 
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258 
260 
278 
280 
298 
338 
348 
3568 
360 
378 
386 
3980 
400 
410 
420 
430 
446 
450 
468 
478 
480 
490 
560 
5168 
526 
530 
535 
548 
558 
568 
578 
5880 
596 
660 


REM I,J,K,M 

REM Z,0.......LOOP COUNTERS 

REM V,X,F,¥...CONDITION FLAGS 

REM C$(Y).....VALID DERIVATIVES 
REM 

REM 

REM N CAN BE CHANGED IF MORE DATA 
REM IS ADDED IN LINES 8000-8010 
REM 

N=5:DIM W$(N) 


REM 
REM READ DATA INTO ARRAYS 
REM 

FOR I=l TO N 

READ W$(I) 

NEXT 

REM 

REM CHOOSE RANDOM WORD 
REM 

W=INT(RND(1)*N)+1 

AS=WS$(W) 

L=LEN(A$) 

REM 


REM PUT EACH LETTER OF A$ INTO 
REM THE ARRAY L$(L) 

REM . 

CLS 

FOR J=1 TO L 
L$(J)=MID$(A$,J,1) 

NEXT J 

PRINT “THE WORD IS : “;A$ 
REM 

REM GET DERIVED WORD 

REM 
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100@ PRINT 

1618 INPUT “ENTER YOUR DERIVED WORD ";G$ 
1620 IF G$=A$¢ THEN GOSUB 6800:GOTO 546 
1630 IF G$="" THEN GOSUB 78060:GOTO 1000 
1048 REM 

1650 REM A VALID DERIVATIVE ? 

166@ REM 

2000 X=@ 

2618 FOR K=1 TO LEN(G$) 

2026 F=0 

263@ FOR M=1 TO L 

2040 IF MID$(G$,K,1)=L$(M) THEN F=1: L$(M)="": 
GOTO 2068 

205@ NEXT M 

2066 IF F<>1l THEN X=1 

2076 NEXT K ‘ 
2088 REM 

2098 REM BRANCH TO CORRESPONDING 

21060 REM LINE NUMBERS 

2116 REM 

3006 ON X+1 GOSUB 4008 ,5000 

3010 PRINT: GOTO 546 

302@ REM 

303@ REM HAS THE WORD ALREADY 

3048 REM BEEN THOUGHT OF? 

305@ REM 

4000 V=0 

4016 FOR Z=1 TO Y 

462@ IF G$=C$(Z) THEN V=1 

4036 NEXT Z 

4040 IF V<>1 THEN 4070 

405@ PRINT: PRINT "THAT WORD HAS ALREADY BEEN 
GUESSED" 
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40960 RETURN 

4078 Y=¥+1:C$(Y)=G$ 

4086 PRINT: PRINT "GOOD!" 

4090 PRINT "THAT IS WORD NO.";¥ 

4100 RETURN 

4110 REM 

4120 REM INVALID WORD 

4130 REM 

5008 PRINT: PRINT "THAT WORD CANNOT BE" 
5010 PRINT “DERIVED FROM "; A$ 

5020 RETURN 

5030 REM 

5040 REM ORIGINAL WORD WAS GUESSED 

505@ REM 

6000 PRINT:PRINT"THAT’S THE SAME WORD !" 
6018 PRINT: RETURN 

6020 REM 

603@ REM DISPLAY DERIVED WORDS SO FAR 
6040 REM 

700@ PRINT: PRINT "THE"; Y;"WORDS THAT HAVE" 
7010 PRINT “BEEN DERIVED SO FAR ARE " 
7020 PRINT 

7030 IF Y=0 THEN PRINT "NONE!":GOTO 7080 
7048 FOR 0=1 TO Y 

7050 PRINT C$(0);"_—"; 

7060 NEXT 0 

7078 PRINT: PRINT 

7080 RETURN 

7090 REM 

7108 REM ORIGINAL WORDS 

711@ REM 

880@ DATA CONSTANTINOPLE, ERADICATE, TELEVISION 
8010 DATA MONUMENTAL, DESIRABLE, INTRICATE 
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Lottery 


Lottery is a program that chooses lottery numbers. It has been written 
to allow numbers to be picked for almost any kind of lottery. 

You select how many numbers to choose and the boundaries the 
numbers fall within. You can also select whether or not you want a 
supplementary number. The program also makes sure it never selects 
the same number twice (a fairly necessary requirement). 


Comments and suggested enhancements 


The modifications you could make to this program are limitless. If you 
really wanta challenge you could try to simulate a given lottery as closely 
as possible. If your local lottery is drawn by balls being selected from 
a rolling barrel then you could try to simulate this with high resolution 
graphics (and don’t forget the sound effects!). 


Cross reference 


1966-1969 clear the screen and ask how many numbers, the lower 
and upper limits, and if you want a supplementary number or not. 
2636-2666 determine if field is large enough. 

3936-3946 DiMension arrays. 

4946 —4976 initialise array N(F) with numbers L to H. 

6946-6966 choose random subscript for the array N(F) containing 
the numbers to be selected. 


7$46—7676 delete the chosen number from the list so that it cannot 
be chosen again. , 


7686 PRINTs supplementary number if required. 
7696 PRINTs the numbers. 
8636—8966 prompt to do it again. 


10@ REM PROGRAM NAME : LOTTERY 
120 REM DATE : 11/01/85 
13@ REM MEMORY USAGE : 1605 BYTES 
14@ REM WITHOUT REMS : 669 BYTES 
156 REM 

166 REM DEFINITION OF VARIABLES 
176 REM 
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REM 

REM N.........NUMBER OF NUMBERS 
REM I,J,K.....LOOP COUNTERS 
REM L.........START OF THE FIELD 
REM H.........END OF THE FIELD 
REM S.........CONDITION FLAG 

REM F.........NUMBER IN THE FIELD 
REM A(N)......RANDOM NUMBERS 

REM N(F)......NUMBERS L TO H 
REM R.........RANDOM INDEX NUMBER 
REM 
REM 

REM ASK HOW MANY NUMBERS 

REM AND THEIR RANGE 
REM 

REM 

CLS 

PRINT "THE LOTTERY PSYCHIC" 

PRINT 

INPUT "HOW MANY NUMBERS TO YOU REQUIRE " 


INPUT "STARTING AT ";L 
INPUT “ENDING AT "3H 
INPUT "SUPPLEMENTARY NUMBER (Y OR N) ";Q 


IF LEFT$(Q$,1)="Y" THEN S=1:N=N+1 

REM 

REM IS THE FIELD LARGE ENOUGH ? 

REM 

F=(H-L)+1 

IF F>=N THEN 3030 

PRINT: PRINT "NOT LARGE ENOUGH FIELD " 
PRINT: GOTO 18036 

REM 
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3018 REM DIMENSION ARRAYS 

302@ REM 

303@ DIM A(N) 

3048 DIM N(F) 

4900 REM 

4010 REM LOAD ARRAY N(X) WITH NUMBERS 

4928 REM L TO H 

4030 REM 

4049 FOR I=L TO H 

4050 Z=Z+1 

4068 N(Z)=I b 
4070 NEXT I 

5000 REM 

501@ REM PRINT A HOPEFUL MESSAGE 

5020 REM 

503@ PRINT:PRINT “AND THE WINNING NUMBERS ARE 


504@ PRINT 

680@ REM 

6@1@ REM CHOOSE A SUBSCRIPT OF 
602@ REM ARRAY N(X) 

6038 REM 

604@ FOR J=1 TO N 

605@ R=INT(RND(1)*F)+1 

6868 A(J)=N(R) 

7000 REM 

7018 REM DELETE THAT SUBSCRIPT FROM 
7028 REM THE LIST 

7038 REM 

704@ FOR K=R TO F-1 

7058 N(K)=N(K+1) 

7068 NEXT K 

7070 F=F-1 
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7086 IF S=] AND J=N THEN PRINT: PRINT: PRINT 
“SUPPLEMENTARY : "; 

7099 PRINT A(J);" "; 

7100 NEXT J 

7118 PRINT 

8000 REM 

8010 REM DO IT AGAIN ? 

802@ REM 

8036 PRINT 

8040 INPUT “ANOTHER PSYCHIC PREDICTION ";Q$ 
8050 IF LEFT$(Q$,1)="Y" THEN RUN 

8060 PRINT:PRINT "GOOD LUCK !" 


Computel 


Computel is a complete telephone directory/database program. Rec- 
ords can be searched for by name, address or telephone number. 

You can search by first or last name, or even by the first few characters 
of a name. For example, if you were searching by last name and entered 
S as the search string, the program would find all records whose last 
names begin with S. Records can also be added, deleted or edited. The 
whole file can be sorted by name, address or telephone number. Compu- 
telis a great program to demonstrate to your friends. 


Comments and suggested enhancements 


The problem with Computel is that when you turn the power off, all 
records are lost (except those in the DATA statements). If you have 
a cassette player, or better still a disk drive, you can modify the program 
so that every time the program is used it saves the file onto tape or 
disk as a data file. When the program is next used, it retrieves the file 
from tape or disk and, presto, all the records are present and do not 
have to be re-entered. Your instruction manual should explain how to 
use data files on your computer. 

The other improvement you may consider making is to replace the 
sort routine (a simple bubble sort) with a faster sort. The types of sort 
routines I recommend are Shellsort and Quicksort. I have not used 
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these routines as they are considerably longer and more complicated, 
but you should be able to find them i ina magazine or applications book 
without too much difficulty. 


Cross reference 


436 initialise N= 19. 

496 dimension variables. 

5398-5468 READ DATA into arrays. 

586-726 display option menu, get user’s input and then branch. 
1936-1126 PRINT records currently in the file. 

2$36—2146 add records. N is incremented by one and the new record) 
is INPUT. 

3636-3226 sort the file by name, address or telephone number. The 
sort routine is in lines 3119-3199 and is a simple bubble sort. 
4636—4176 allows deletion of a record. The record to be deleted can 
be searched for by name, address or telephone number. Line 4959 sets 
variable D=1 and then jumps to the search routine to find the record. 
The search routine then checks to see if D=1. If yes, then it returns 
to the delete routine. 

5939-5299 is the search routine. The IF LN=1 statement in line 5149 
checks to see if you are searching by last name. If LN=1 then the pro- 
gram jumps to another routine that searches on the last name. The 
IF statement in line 5159 determines if the record has been found. When 
a record is found the program keeps on searching for another one of 
the same, until the end of the file is reached. 

6636-6159 is the modify routine. If, when prompted for the new data, 
you simply press <RETURN> then the record stays unaltered. 
9936-9116 is the select a field routine. Itis called by the search routine. 
16636-19119 is the last name search routine. The space character 
is used to separate first and last names. If the space is found then line 
19189 checks to see if the last name matches the search string. 
11636—1113 DATA statements containing the names, addresses and 
telephone numbers. 


1968 REM PROGRAM NAME : COMPUTEL 
12@ REM DATE : 11/61/85 
13@ REM MEMORY USAGE : 7325 BYTES 
14@ REM WITHOUT REMS : 5795 BYTES 
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15@ REM 

16@ REM DEFINITION OF VARIABLES 

17@ REM ; 

18@ REM A$(1,X)...FIELD 1 : NAME 

199 REM A$(2,X)...PIELD 2 : ADDRESS 
200 REM A$(3,X)...FIELD 3 : TELEPHONE 
210 REM B$(1,X)...TEMPORARY NAME 

220 REM B$(1,X)...TEMPORARY ADDRESS 
23@ REM B$(1,X)... TEMPORARY TELEPHONE 
240 REM F$(1).....NAME OF FIELD 1 

250 REM F$(2).....NAME OF FIELD 2 

260 REM F$(3).....NAME OF FIELD 3 

270 REM H,I,J,K 

280 REM L,P,Y,Z...LOOP COUNTERS 

290 REM N.........NUMBER OF RECORDS 
300 REM F,M,C,D...CONDITION FLAGS 

310 REM P$,T$.....DUMMY STRINGS 

32@ REM Q$........PROMPT (Y OR N) 

330 REM S$........SEARCH STRING 

349 REM LS........LENGTH OF S$ 

350 REM W.........FIELD SELECTION 

360 REM 

378 REM 

38@ REM START OF MAIN PROGRAM 

39@ REM 

40@ REM N CAN BE CHANGED IF MORE DATA 
41@ REM IS ADDED IN LINES 11030-11130 
42@ REM 

430 N=10 

440 REM 

450 REM A$(R,C) HAS BEEN DIMENSIONED TO 
46@ REM ALLOW 16@ RECORDS AND CAN BE 
47@ REM CHANGED IF MORE ARE REQUIRED 
480 REM 
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49@ DIM A$(3,10@),B$(3,100),F$(3) 

500 REM 

51@ REM READ DATA INTO ARRAYS 

52@ REM 

53@ FOR I=1 TO 3:READ F$(1):NEXT 

640 FOR J=1 TO N: READ A$(1,J),A$(2,J),A$(3,J) 
: NEXT 

55@ REM 

56@ REM DISPLAY OPTION MENU 

578 REM 

§8@ CLS . 
59@ PRINT “MAIN MENU"; TAB(2@);N; “RECORDS IN : 
FILE" 

6060 PRINT 

61@ PRINT "1 - PRINT FILE" 

620 PRINT "2 — ADD TO FILE" 

630 PRINT “3 — SORT FILE" 

648 PRINT "4 - DELETE A RECORD" 

65@ PRINT "5 — SEARCH FOR A RECORD" 

66@ PRINT "6 —- MODIFY A RECORD" 

67@ PRINT “7 — EXIT FROM PROGRAM" 

680 PRINT 

698 F=@:D=@:M=-@: LN=@:S=6: P=@0 

700 INPUT “WHICH ";W 

716 IF W<l OR W>7 THEN 7866 

728 ON W GOTO 1030, 2038, 3036, 4038 , 5038, 6030 ,7 
030 

100@ REM 

161@ REM PRINT THE FILE 

1020 REM 

103@ CLS 

1046 PRINT “PRINT FILE?: PRINT 

1050 PRINT "NAME"; TAB(15); "ADDRESS"; TAB(3@);" 
TELEPHONE" 
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1066 PRINT 

1076 FOR K=1 TO N 

1@8@ PRINT A$(1,K);TAB(15); A$(2,K); TAB(30); A$ 
(3,K) 

1698 NEXT K 

1108 PRINT 

111@ GOSUB 8030 

1126 GOTO 588 

2000 REM 

2010 REM ADD RECORDS TO THE FILE 

2028 REM 

2036 CLS 

204@ PRINT “ADD DATA TO FILE": PRINT 

205@ PRINT "TO TERMINATE DATA ENTRY PRESS 
<RETURN>" 


206@ PRINT 

2070 N=N+1 

2086 PRINT "RECORD # ";N 

20980 PRINT 

2160 .INPUT “NAME : "3;A$(1,N) 
2110 IF A$(1,N)="" THEN N=N-1:GOTO 588 
2120 INPUT "ADDRESS : "3;A$(2,N) 
2130 INPUT “TELEPHONE : “;A$(3,N) 


2146 GOTO 2068 

3800 REM 

3010 REM SORT FILE 

3028 REM 

303@ CLS 

304@ PRINT "SORT FILE": PRINT 
305@ PRINT "SORT BY": PRINT 
3068 S=1 

3678 GOSUB 903@ 

368@ CLS 

3898 PRINT "SORTING BY ";F$(W) 
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3106 PRINT: PRINT "PLEASE BE PATIENT..." 

3118 C=@ 

312@ FOR Y=1 TO N-1 

313@ IF A$(W,Y)<=A$(W,Y+1) THEN 318@ 

3140 T$=A$(1,Y):A$(1,Y¥)=A$(1, Y+1):A$(1,Y+1)=T 
$ 

3150 T$=A$(2,Y):A$(2,Y)=A$(2, Y+1):A$(2,Y+1)=T 
$ ‘“ 
3160 T$=A$(3,Y):A$(3,Y)=A$(3, Y+1):A$(3,Y+1)=T 
$ 

3170 C=1 

3180 NEXT Y 

3190 IF C=1 THEN 3110 

3200 PRINT: PRINT"FINISHED SORTING ";N;" 
RECORDS" 

321@ GOSUB 8030 

3228 GOTO 580 

4000 REM 

401@ REM DELETE A RECORD 

402@ REM 

4038 CLS 

4040 PRINT "DELETE A RECORD": PRINT 

40508 D=1 

406@ GOTO 5056. 

407@ PRINT 

408@ INPUT "DELETE THIS RECORD ";Q$ 

4098 IF Q$<>"Y" THEN GOTO 580 

410@ FOR Z=L TO N-1 

‘411@ A$(1,Z)=A$(1,Z+1) 

4120 A$(2,Z)=A$(2,Z+1) 

4130 A$(3,2)=A$(3,Z+1) 

414@ NEXT Z 

415@ N=N-1 

4168 GOSUB 8830 
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GOTO 5880 

REM 

REM SEARCH FOR A RECORD 

REM 

CLS 

PRINT "SEARCH FOR A RECORD": PRINT 
PRINT “SEARCH BY": PRINT 


GOSUB 98030 

PRINT 

INPUT "ENTER STRING TO SEARCH FOR ";S$ 
LS=LEN(S$) 

CLS 

PRINT “SEARCHING...":PRINT 

L=0 

L=L+1 


IF LN=1 THEN 18126 
IF LEFT$(A$(W,L),LS)=S$ THEN F=1:GOSUB 


IF L<=N THEN 5136 


PRINT: PRINT" END OF FILE" 


IF F=@ THEN PRINT: PRINT"RECORD NOT FOUND 


GOSUB 8030 

GOTO 58@ 

PRINT “RECORD # ";L: PRINT 
PRINT" NAME -"s3a$(1,L) 


PRINT"ADDRESS : "3;A$(2,L) 
PRINT"TELEPHONE : ";A$(3,L) 

IF D=]1 THEN 4078 

IF M=1 THEN 6860 

PRINT: INPUT "PRESS <RETURN> TO CONTINUE 


PRINT 
GOTO 51686 
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6006 
6018 
6828 
6638 
6048 
6058 
6060 


REM 

REM MODIFY A RECORD 

REM 

CLS 

PRINT “MODIFY A RECORD": PRINT 
M=1:GOSUB 5@5@ 

PRINT: PRINT “ENTER NEW DATA OR <RETURN> 


TO LEAVE OLD" 


6078 
6080 
60998 
6108 
6118 
6120 
6130 
6148 
6158 
7090 
7010 
7020 
7030 
7040 
7050 
7068 
8000 
8018 
8028 
8030 
8048 
";D$ 
8050 
9000 
9010 
9028 
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PRINT 

INPUT "NAME : “;B$(1,L) 
INPUT “ADDRESS : “;3;B$(2,L) 
INPUT "TELEPHONE : ";B$(3,L) 
FOR H=1 TO 3 

IF B$(H,L)<>"" THEN A$(H,L)=B$(H,L) 
NEXT H 

GOSUB 8830 

GOTO 58@. 

REM 

REM EXIT FROM PROGRAM 

REM 

CLS 

PRINT “NICE WORKING WITH YOU " 
PRINT: PRINT “END OF PROGRAM" 
END 

REM 

REM PROMPTING SUBROUTINE 

REM 

PRINT 

INPUT "PRESS <RETURN> TO RETURN TO MENU 


RETURN 

REM 

REM DISPLAY FIELDS ROUTINE 
REM 


9830 
9840 
9050 
9068 
9978 
9080 
9098 
9100 
9110 
10000 
10010 
10028 
10030 
10040 
10050 
100608 
10070 
10080 
16090 
10100 
10110 
10120 
10130 
10148 
18158 
10160 
10170 
10180 
GOSUB 
10198 
11000 
11010 
11020 
11038 


FOR P=1 T0-3 


PRINT P;" ~. "3 TAB(7); F$(P) 


NEXT P 


PRINT 


INPUT “WHICH ";W 


IF W<l OR W>3 THEN 9078 
IF S=]1 THEN RETURN 
IF W=1 THEN GOSUB 18638 
RETURN 
REM 
REM SEARCH BY FIRST OR LAST NAME 
REM 
PRINT 
PRINT “SEARCH BY ": PRINT 
PRINT “1 — FIRST NAME" 
PRINT "2 —- LAST NAME “ 


PRINT 

INPUT “WHICH “;LN 

IF LN<1 OR LN>2 THEN 10080 
LN=LN-1 

RETURN 

IF LN=@ THEN 10178 

P=6 

FOR I=] TO LEN(A$(W,L)) 

IF MID$(A$(W,L),I,1)=" " THEN P=I 
NEXT I 


IF P=@ THEN 5168 

IF MID$(A$(W,L),P+1,LS)=S$ THEN F=1: 
5218:GOTO 5168 

GOTO 5168 

REM 

REM INITIAL RECORDS 

REM 

DATA NAME, ADDRESS, TELEPHONE 
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1104@ DATA EILEEN PETERS,RED TOWN, 345432 
1105@ DATA ROBERT SMITH,COOK TOWN, 431440 
1106@ DATA MICHELLE MYNE,HEARTBEAT CITY, 
181681 

1107@ DATA OWEN PUSS, DANGOR, 343161 

11088 DATA TONY MAN,BLACK CITY, 244364 
11098 DATA JOHN COOL, TAHITI, 666 

11106 DATA RICHARD SMOOTH,SKULL VALLEY, 1802630 
1111@ DATA JOE WILLIAMS, FORBES, 645645 
11120 DATA CEDRIC PUNCE, DERBIN, 47634 
1113@ DATA NICOLE SISTA, JETSET CITY, 4343 


Helper 


Helper is a collection of the most common and useful routines. It in- 
cludes a metric converter, unit prices, interest and investment calcu- 
lator, wage evaluator and day finder, all called from an option menu. 
If you only want one or two of the routines or don’t want to type the 
whole lot in then you can simply type in the routine that you want and 
remove the lines that return you to the main menu. 


Comments and suggested enhancements 


You could add more routines and expand the option menu. You could 
also add colour and sound and customise the screen displays to your 
own liking. 


Cross reference 


286-346 DiMension variables and READ DATA into arrays. 
386—566 display option menu and get input. 

Metric converter 

1939-1116 display the available conversions and get choice. 
1126—1199 select whether to convert from or to. 


1266 is called a ‘boolean expression’. Basically, what it does is that 
IF C=1 THEN O=2 or IF C=2 THEN O=1. 


1226 INPUTs the quantity to convert. 
1246 makes the conversion. 
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1256 checks to see if the conversion used Fahrenheit or Celsius, 
these require different calculations. 


1266 displays the conversion. 

Unit pricer 

2656-2669 INPUTs the names of the items. 
2686-2166 INPUTs their cost and quantity. 
2186 calculates the unit cost of each item. 
2266—2226 PRINTs the unit cost of each item. 
224$-—2286 PRINT which item is the better buy. 
Financial calculations 

3936-3116 display menu and input choice. 
3156-3196 INPUT DATA for future investment value. 
3266-3226 calculate the future investment value. 
3236-3256 display the future value. 

3366-3346 INPUT DATA for regular loan payments. 
335$—3376 calculate the regular payments. 
3386-3496 display the regular payment. 

Wage evaluator 

4936-4976 INPUT wage data. 

4996 perform calculations. 

4199-4136 display wage information. 

Day finder 

5649-5966 INPUT the date. 

5676 check for valid data. 

5996 make adjustments to the month and year. 
5196-5126 calculate the day of the week. 

5149 PRINT the day. 


10@ REM PROGRAM NAME : HELPER 

12@ REM DATE : 22/01/85 
13@ REM MEMORY USAGE : 5108 BYTES 
135 REM WITHOUT REMS : 4485 BYTES 
146 REM 

15@ REM MAIN ROUTINES 

16@ REM 


176 
188 
190 
260 
218 
228 
238 
248 
250 
268 
278 
280 
298 
300 
310 
320 
336 
340 
3560 
360 
378 
380 
398 
400 
410 
420 
430 
448 
4560 
460 
470 
480 
498 
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REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DIM C 
FOR I 
FOR L 
FOR J 
NEXT 
FOR K 
FOR L 
REM 
REM 
REM 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF W< 


163@-1320...METRIC CONVERTER 
2638-2320...UNIT PRICER 
3630-3470...FIN. CALCULATIONS 
4030-4160...WAGE EVALUATOR 
5030-5186...DAY FINDER 


READ DATA INTO ARRAYS 


(6),T$(2,6),M$(12),D$(7) 

=1 TO 6: READ C(I):NEXT I 

=1 TO 2 

=1 TO 6: READ T$(L,J):NEXT J 
L » 

=1 TO 7:READ D$(K):NEXT K 
=1 TO 12: READ M$(L):NEXT 


DISPLAY OPTION MENU 


"MAIN MENU" 


"1 -— METRIC CONVERTER" 

"2 - UNIT PRICER" 

"3 -— FINANCIAL CALCULATIONS" 
"4 - WAGE EVALUATOR" 

"5 -— DAY FINDER" 

"6 - EXIT FROM PROGRAM" 


"WHICH ";W 
1 OR W>6 THEN 480 


500 ON W GOTO 1030, 2030, 3030, 4030 ,5030,6030 
1000 REM 

101@ REM METRIC CONVERTER 

1028 REM 

103@ CLS 

104@ PRINT"METRIC CONVERTER": PRINT 

105@ PRINT"DOES YOUR CALCULATION USE": PRINT 
106@ FOR K=1 TO 6 

107@ PRINT K;" - ";T$(1,K)3;"/"37$(2,K) 

1080 NEXT 

1090 PRINT 

1100 INPUT “WHICH ";W 

111@ IF W<l OR W>6 THEN 1100 

112@ CLS 

113@ PRINT 

114@ PRINT "DO YOU WISH TO CONVERT" 

115@ PRINT: PRINT] - FROM ";T$(1,W);" TO ";T$ 
(2,W) 

1168 PRINT"2 — FROM “;T$(2,W);" TO ";T$(1,¥W) 
117@ PRINT 

‘1180 INPUT "WHICH ";C 

1198 IF C<1 OR C>2 THEN 1180 

120@ O=(C=1)*-2+(C=2)*-1 

1210 PRINT 

1220 PRINT"ENTER THE ";T$(C,W);" "; 

1230 INPUT A 

1240 X=-A*(C=1)*C(W)+-A*(C=2)/C(W) 

125@ IF W=6 THEN X=(C=1)*-A«C(W)+(C=1)*-32+(C 
=2)*-1*(A-32) /C(W) 

126@ PRINT A;T$(C,W);" EQUALS ";X;T$(0,W) 
‘1270 PRINT 

1280 INPUT "ANOTHER CONVERSION ";Q$ 

1290 IF LEFT$(Q$,1)="Y" THEN 1030 
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13080 
1318 
MENU 
1326 
2600 
2618 
2026 
2038 
2040 
2058 


PRINT 

INPUT "PRESS <RETURN> TO RETURN TO MAIN 
";D$ 

GOTO 360 

REM 

REM UNIT PRICER 

REM 

CLS 

PRINT “UNIT PRICER": PRINT 
INPUT “WHAT IS THE NAME OF ITEM 1 ";A$ 


2060 INPUT "WHAT IS THE NAME OF ITEM 2 ";B$ 
2678 PRINT 

2086 PRINT “WHEN ENTERING THE FOLLOWING 
PLEASE" 

209@ PRINT “USE ONLY NUMBERS (NO SYMBOLS)": 
PRINT 

210@ PRINT "COST OF THE ";A$;" PRODUCT "; 
2116 INPUT A 

2126 INPUT "AND HOW MANY UNITS DOES THAT BUY 
":¢ 

21380 PRINT 

214@ PRINT “COST OF THE ";B$;" PRODUCT "; 
2158 INPUT B 

216@ INPUT “AND HOW MANY UNITS DOES THAT BUY 
"3D 

2178 PRINT 

218@ E=A/C: F=B/D 

2198 CLS 

2200 PRINT “PRODUCT EVALUATION": PRINT 

2216 PRINT “UNIT COST OF ";A$;" PRODUCT $";E 
2226 PRINT "UNIT COST OF ";B$;" PRODUCT $";F 
2238 PRINT 

2248 IF R=F THEN PRINT “BOTH PRODUCTS COST TH 


E SAME PER UNIT": GOTO 2296 
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22580 
2268 
2278 
2288 
2298 
2388 
2318 
23260 
3000 
3018 
3828 
3030 
3040 
3056 
3060 
30708 
3080 
38908 
31080, 
3110 
3120 
3130 
3148 
3158 
3168 
3178 
3188 
3198 
3268 
3218 
3220 
3238 
3248 
3258 


IF E>F THEN C$=B$ 


IF E<F THEN C$=A$ 

PRINT “THE BETTER BUY IS" 
PRINT "THE ";C$;" PRODUCT " 
PRINT 

INPUT “ANOTHER EVALUATION ";Q$ 
IF LEFT$(Q$,1)="Y" THEN 2030 
GOTO 380 

REM 

REM FINANCIAL CALCULATIONS 
REM 

CLS 

PRINT "FINANCIAL CALCULATIONS": PRINT 


PRINT “1 — FUTURE INVESTMENT VALUE" 
PRINT “2 - REGULAR LOAN PAYMENTS" 
PRINT "3 - RETURN TO MAIN MENU" 
PRINT 

INPUT "WHICH ";W 

IF W<l OR W>3 THEN 3090 

ON W GOTO 31580,329@, 388 

REM 

REM FUTURE INVESTMENT VALUE 

REM 

CLS 

PRINT “FUTURE INVESTMENT VALUE ": PRINT 
INPUT "INITIAL INVESTMENT “";1I 

INPUT “FOR HOW MANY YEARS ";Y 

INPUT "INTEREST RATE ";R 

FOR J=1 TO Y 

T=T+((R/108)*I) 

NEXT J 

PRINT: PRINT “VALUE AFTER"; Y; "YEARS" 
PRINT "AT";I;"% P.A IS $";1+T 
GOSUB 3448:GOTO 3158 
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3260 REM 

3270 REM REGULAR LOAN PAYMENTS 

3280 REM 

3298 CLS 

330@ PRINT "REGULAR LOAN PAYMENT": PRINT 
3310 INPUT “AMOUNT BORROWED ";P 

3320 INPUT "OVER HOW MANY YEARS ";Y 

3330 INPUT "AT WHAT INTEREST RATE ";R 
3348 INPUT "HOW MANY INSTALMENTS PER YEAR ."; 1 
335@ A=((R/10@)*P/I) 

3360 B=1-((R/100/1)+1)*(-I*Y) 

337@ C=A/B 

338@ PRINT: PRINT "REGULAR PAYMENTS = $";C 
3398 GOSUB 3440 

3488 GOTO 3290 

3410 REM 

342@ REM DO IT AGAIN ? 

3430 REM 

3440 PRINT 

345@ INPUT “ANOTHER CALCULATION ";Q$ 

346@ IF LEFT$(Q$,1)="Y" THEN RETURN 

3478 GOTO 3030 

4000 REM 

401@ REM WAGE EVALUATOR 

402@ REM 

4038 CLS 

4040 PRINT"WAGE EVALUATOR": PRINT 

4050 INPUT"ENTER TOTAL HOURS WORKED";T 

406@ INPUT"ENTER TOTAL EARNINGS BEFORE TAX";B 

4078 INPUT"ENTER TAX DEDUCTED ";C 

408@ PRINT: PRINT 

4090 TE=B/T: X=B-C: TH=X/T: AD=C/T: P=C*106/B 

416@ PRINT USING "TOTAL EARNINGS PER HOUR 
$ ###.#8"; TE 
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411@ PRINT USING "AMOUNT TAKEN HOME PER HOUI 
$ ##4. 88"; TH 

412@ PRINT USING “AMOUNT DEDUCTED PER HOUR 
$ ###.#8"; AD 

413@ PRINT USING “PERCENT DEDUCTED FROM TOTA 

###.88 % ";P 

414@ PRINT: INPUT “ANOTHER EVALUATION '";Q$ 
415@ IF LEFT$(Q$,1)="Y" THEN 48030 © 

4168 GOTO 388 

500@ REM 

5018 REM. DAY FINDER 

502@ REM 

5038 CLS 

504@ PRINT “DAY FINDER ":; PRINT 

505@ PRINT "PLEASE ENTER THE DATE IN " 

506@ INPUT "THE FORM DD,MM,YYYY ";D,M,Y 
507@ IF D<1 OR M<1 OR M>12 THEN PRINT: PRINT 
INVALID DATE ":GOTO 5050 

508@ A=M:B=Y 

5098 IF M<2 THEN M=M+12: Y=Y-1 

510@ X=D+24*M+INT(.6*(M+1))+Y+INT(Y/4) 

5118 X=X-INT(Y¥/100)+INT(Y/400)+2 

5120 X=INT((X/7-INT(X/7) )*7+.5) 

5138 PRINT 

5148 PRINT M$(A)3;D;",";B;"IS A ";D$(X+1) 
5158 PRINT 

516@ INPUT "ANOTHER DATE ";Q$ 

5170 IF LEFT$(Q$,1)="Y" THEN PRINT:GOTO 5058 

5180 GOTO 380 

600@ REM 

601@ REM EXIT FROM PROGRAM 

602@ REM 

603@ CLS 

604@ PRINT: PRINT "NICE WORKING WITH YOU !" 
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605@ PRINT: PRINT “END OF PROGRAM": END 

7666 REM 

7618 REM DATA FOR CALCULATIONS 

7020 REM 

703@ DATA .621377,3.2808,1.8936, .3937, .219254 
,1.8 

7646 DATA KILOMETRES ,METRES,METRES, 
CENTIMETRES, LITRES, CENTIGRADE 

76580 DATA MILES, FEET, YARDS, INCHES,GALLONS, 
FAHRENHEIT 

7860 DATA SATURDAY, SUNDAY,MONDAY, TUESDAY, 
WEDNESDAY, THURSDAY, FRIDAY 

767@ DATA JANUARY, FEBRUARY,MARCH,APRIL,MAY, 
JUNE, JULY, AUGUST, SEPTEMBER, OCTOBER, NOVEMBER, 
DECEMBER 
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Appendix 3 
BASIC cross references 


The following is a BASIC cross reference guide to make it easier to 
convert programs that are written in a different version of BASIC from 
the one your computer uses. If your computer is not listed it will almost 
certainly be the same as one of them. 
As well as standard Microsoft BASIC the computers that have been 
included are: 
IBM PC 
IBM PC Junior 
Apple II+, Apple Ile, Apple Macintosh 
Atari 
BBC 
Commodore 64 
Commodore Vic 20 
Commodore Pet 
Microbee 
Tandy TRS 80 
Sinclair ZX81 
Sinclair Spectrum 
The instruction will be first given in Microsoft BASIC. If this instruction 
varies with any of the machines listed it will be followed by the mach- 
ine(s) name along with the appropriate conversion. If there are no differ- 
ences the instruction will be followed with the words ‘Common to all’. 
The following is a list of the abbreviations and expressions used: 
Adr = Address 
Var = Variable 
Exp = Expression 
Sub = Subscript 
Ln = Line number 
Stmt = Statement 
{ ] = Indicates an optional extension 
Note: Some computers lack an equivalent instruction. Only those that 
differ are listed. 
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Cross reference list 


ABS(exp) 
Microbee 
ASC(string) 
ZX81 
Spectrum 
ATN(exp) 
Microbee 


AUTOlline no, line no, increment] 


Common to all 
CALL adr 
Commodore 64 
Vic 20 

Pet 

ZX81 

Spectrum 
CHRS$(exp) 
Microbee 
CLEAR (exp,exp) 
Apple 

BBC 

Atari 
Commodore 64 
Microbee 

Pet 

Vic 20 

TRS 80 

ZX81 

Spectrum 
CONT 
Spectrum 
COS(exp) 
Microbee 


DATA constant, const... 


common to all 
DEF FN (var)=exp 
Microbee 

DELETE In, In 
TRS 80 
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ABS(real exp) 


CODE(string) 
CODE(string) 


ATAN(real exp) 


SYS(adr) 
SYS(adr) 
SYS(adr) 
LET var = USR(adr) 
LET var= USR(adr) 


CHR&(integer exp) 


CLEAR 

CLEAR 

CLR 

CLR(exp) . 
STRS(integer exp) 
CLR 

CLR 


CLEAR(exp) 
CLEAR 
CLEAR 
CONTINUE 


COS(real exp) 


FN number=exp 


DELETE In-In 


DIM var (sub) [,var (sub), ..] © 
ZX81 

Spectrum 

END 

common to all 

EXP(exp) 

Microbee 


FOR var=exp TO exp [STEP exp] 


common to all 
FRE (exp) 

BBC 

GOSUB In 
common to all 
GOTO In 
common to all 
IF exp THEN stmt {ELSE stmt] 
Apple 

Atari 
Commodore 64 
Pet 

Vic 20 


var=INKEY$ 


Apple 
BBC 


Commodore 64 
Pet 

Vic 20 

INPUT [string] var [,var, . . ] 
ZX81 

INT(exp) 
Microbee 
LEFTS(string,exp) 
Atari 

Microbee 

ZX81 

Spectrum 
LEN(string) 


common to all 


DIM var(sub) 
DIM var(sub) 


EXP(real exp) 


HIMEM-TOP 


IF exp THEN stmt 
IF exp THEN stmt 
IF exp THEN stmt 
IF exp THEN stmt 


_IF exp THEN stmt 


GET var 
GET var 
or var=INKEYS$(time) 
GET var 
GET var 
GET var 


INPUT var 
(real exp) 


string(exp,exp) 
string(;1,exp) 

string(TO exp) 
string(TO exp) 
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LET var=exp 
common to all 


LIST [In,In] 

Commodore 64 LIST [In-In} 

Pet LIST [In-In] 

Vic 20 LIST [In-In] 

ZX81 LIST In 

Spectrum LIST In 

LOG 

Microbee LOG(real exp) 
MIDS(string, exp [,exp] ) 

Atari string(exp,exp) 
Microbee string(;exp,exp) 
ZX81 string(exp TO exp) 
Spectrum string(exp TO exp) 
NEW 


common to all 


ON var GOSUB In LIn,.. ] 
ON var GOTO In [ In, ...] 


PEEK(adr) 

BBC ? adr 

POKE adrexp 

BBC ? adr,exp 
RANDOMIZE(exp) 

Atari RND(—exp) 
BBC RND(—exp) 
Commodore 64 RND(—exp) 
TRS 80 RANDOM 
ZX81 RAND 
Spectrum RAND 

READ var [var, ...] 

Microbee READ Inyar [var, ...] 
RESTORE [In,In] 

common to all 

SQR(exp) 

Microbee SQR(real exp) 
STOP 


common to all 
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STRINGS(exp,string) - 


Microbee ; PRINT (A exp exp) 
STR$(exp) 

common to all 

TROFF 

Apple NOTRACE 

BBC TRACE OFF 
Microbee TRACE OFF 
TRON 

Apple TRACE 

BBC TRACE ON 
Microbee TRACE ON 
USR(exp) 

Microbee USR(adr,integer exp) 
ZX81 USR(addr) 
Spectrum USR adr 
VAL(string) 


common to all 
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BASIC keywords 


The following summary of BASIC instructions may prove useful as a 
memory refresher and can also help to prevent you from using BASIC 
words in variable names. 


Statements 
BEEP 
CALL 


CLS 
DELETE 
COLOR 
DATA 
DIM 
ELSE 


END 
EXEC 


FOR...TO 
GET 


GOSUB X 


GOTO X 
HGR 


HOME 
HPLOT 


HTAB 
IF-THEN 


INKEYS 
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Purpose 

Sound a bell 

Execute a machine code 
program 

Clear the screen 

Delete a program line 
Change colour 

Holds data to be read 
Dimension an array variable 
Optional part of 
IF—THEN statement 
End program 

Execute machine code 
program 

Start of FOR—NEXT loop 
Get a random access 
files record from disk 
Jump to subroutine at 
line X 

Jump to line X 

High resolution 
graphics 

Clear the screen 

Set a graphics dot or 
line 

Horizontal tab 
Conditional execution 
after THEN statement 
Scan keyboard for one 
keypress 


INPUT 
LET 


LINE . 
LINE INPUT 


LOCATE X, Y 
LPRINT 


MON 

NEXT 
NOTRACE 
ON X GOSUB 


ON X GOTO 


PLAY 

PRINT 

PRINT USING 
PUT 


Get data from the 
keyboard 

Assign a value to a 
variable 

Draw a line in graphics 
Same as input but 
accepts commas, etc 
Position cursor at X, Y 
Print at the line 

printer 

Enter machine monitor 
End of FOR—NEXT loop 
Set trace off 

Branches to Xth 
subroutine 

Jumps to Xth line 
number 

Play a note 

Display data on screen 
Align decimal points 
Store a random access 
files record to disk 
Read data into 
variables 

Embed remarks in a 
program 

Reset data pointer to 
first element 

Return from subroutine 
Resume execution after 
an error 

End program 

Sound generation 

Set speed of the 
computer 

Optional part of 
FOR-NEXT statements 
Return to the text © 
screen 

Horizontal tab 

Set trace on 
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TROFF 
USR 


VLIN 
VTAB 


Functions 
ABS(X) 
ATN(X) 
COS(X) 
EXP(X) 


FIX(X) 
FRE(9) 
INP(X) 
INT(X) 
LOG(X) 
RND(1) 
SGN(X) 
SQR(X) 
TAB(X) 
TAN(X) 
PEEK(X) 


POKE X,Y 


String functions 


ASC(X$) 
CHRS$(X) 


INSTR(XS, Y$) 
LEFTS(X$, X) 


MIDS(XS, X, Y) 
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Set trace on 
Call machine language 


. subroutine 


Draw a vertical line 
Vertical tab 


Purpose 

Absolute value of X 
Arctangent of X 

Cosine of X 

Number e to the power 
of X 

Set X decimal places 
Find remaining memory 
Value at port X 

Integer of X 

Logarithm of X 
Random number between 
Mand 1 

Sign of X 

Square root of X 

Move cursor to column X 
Tangent of X 

Value in memory 
location X 

Put a value of Y in 
memory location X 


Purpose 

Code of first 
character of X$ 
Character with ASCII 
code X 

Position of Y$ in X$ 
Leftmost X characters 
of X$ 

Substring of Y 
characters from 
character X of X$ 


RIGHTS(XS, X) 


SPACES(X) 
STRS$(X) 
VAL({X$) 


Command 
AUTO 


CHAIN 


CLEAR 


Rightmost X characters 
of X$ | 

String of X spaces 
Make X into a string 
Find the value of X$ 


Purpose 

Automatic line 
numbering 

Make another program 
run when the first is 
finished 

Clear memory or 
variables 

Continue execution of 

a program 

Edit a program line 
Delete a program from 
disk 

List a program 

Load a program from 
disk or tape 

Rename a program on 
disk 

Renumber program lines 
Execute a program in 
memory : 

Save a program to disk 
or cassette tape 

Verify that a program that 
has been saved can be loaded 


157 


index 


arithmetic expressions, 16 
arrays, 48-55 

Artificial Intelligence, 96 
ASCII, 80-1, 82 


BASIC, 6, 11 


BASIC cross references, 149-53 


BASIC keywords, 154-7 
branching, 42 
break/run stop key, 33 
bugs, 86 


CHRS$ function, 81, 156 
COBOL, 6 

codes, 80-3 

comma, 19 

computer languages, 6 
computer program, 6 
concatenation, 25 
control codes, 81 
crashing, 3 

cursor, 5 


databases, 50 

DATA statements, 60-6 
debug, 37 

decimal points, aligning, 71-3 
default, 45 

deleting lines, 12, 154 
DIM statement, 48-55 
direct mode, 21 

divide symbol, 16 
DOCTOR, 96 

dollar symbol, 24, 28 


ELIZA, 96 
END statement, 7, 14, 34 
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enter (return) key, 5 

error checking/user proofing, 
40 

error message, 29 

execute, 7, 154 

expression, 11 


field separators, 69 

FOR-NEXT statements, 44-7, 
61-2 

Forth, 6 

Fortran,6 

fortune teller, 94-5 


GOSUB statements, 34-7, 154 
GOTO statements, 33-4, 154 


hang up, 34 
hardware, 3 


IF—THEN statements, 39, 154 
immediate mode, 11 

infinite loop, 33 

input, 4 

INPUT statements, 28-31 
instruction, 11 

INT function, 70, 84-7, 156 
integer, 84 . 


jumping, 33, 37 


keyboard, 5 
keyword, 11 


languages, 6 
LEFTS$ function, 75, 78, 156 
LEN function, 77-8 


LET statements, 11, 20, 155 
Lisp, 6, 96 

LIST, 8, 12, 157 

LOAD, 157 

loop counter, 42 

loops, 34, 42, 44-7 


menus, 99-100 

MID$ function, 76, 78, 156 
multiple statements, 58-9 
multiply symbol, 16 


nested loops, 45-7 

NEW, 8 

numeric expressions, 16 
numeric variables, 20-4, 26 


ON GOSUB/RETURN 
statements, 98-9, 155 

ON GOTO statements, 97-8, 
155 

output, 4 

outside loops, 45 


Pascal, 6 

pointer, 65 

PRINT statement, 7, 14, 30, 155 

PRINT USING statement, 71-3, 
155 

process, 4 

program, 6 

prompt, 9 


random numbers, 89-95 

READ-DATA statements, 60-6, 
155 

REM statements, 57-8 


RESTORE statements, 65-6 
return/enter key, 5 
RETURN statements, 34-7 
RIGHTS function, 75, 78, 157 © 
RND function, 89-95, 156 
rounding off, 84, 87, 90 
RUN, 6, 157 

run stop/break key, 33 


SAVE, 157 
self-terminating loops, 44 
semicolon, 17-18 

shift key, 5 

SIN function, 70 
software, 3 

STEP statement, 44-5, 155 
string expressions, 15, 75 
string variables, 21, 24-6 
STR$ function, 78-9, 157 
substrings, 75-6, 78 
syntax, 11 


TAB function, 68-71, 155 
type mismatch, 78, 79 


user proofing/error checking, 
40 


VAL function, 79-80, 157 
variables 
numeric, 20-4, 26 
string, 21, 24-6 


wage and tax calculator, 73 
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At an sncieasticks early age, children aie aii exposed. it ti 
exciting world of computers at school; and the number of children 
who own their c own computer or who have access to one is growing 
rapidly. Kids approach this new science without the inhibitions that Lit 
worry adults, Young people tend to take computers in their stride. Ee 

- So much so that many parents have the neater feeling that 
they are being left behind. sf 


ue NS, bewildered arents: "guide to computer programming has been 
__.. written by someone who understands parents’ problems — a high 
~ school student who has become a computer expert. The book isan _ 
easy-to-follow guide to computer programming which will help 
parents (and anyone else, young or old) to catch up on the com- 
puter revolution. It also includes many useful ba which even 
the! beginner can key into his or her computer. The book suits all the 
common microcomputers. 
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